<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
Thanks :-) Interesting to see that the tool forced you to add a "counter := nil" even though the code clearly does not require it.<div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div>
<blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 17.12.2021 01:31:06 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">Christoph Thiede uploaded a new version of ToolsTests to project The Trunk:<br>http://source.squeak.org/trunk/ToolsTests-ct.108.mcz<br><br>==================== Summary ====================<br><br>Name: ToolsTests-ct.108<br>Author: ct<br>Time: 17 December 2021, 1:30:55.571987 am<br>UUID: 90d16e62-54a8-5b43-91b0-fdfb4090afa2<br>Ancestors: ToolsTests-ct.107<br><br>Documents choice of priorities in DebuggerTests >> #test01UserInterrupt. Thanks to Marcel (mt)!<br><br>=============== Diff against ToolsTests-ct.107 ===============<br><br>Item was changed:<br> ----- Method: DebuggerTests>>test01UserInterrupt (in category 'tests') -----<br> test01UserInterrupt<br> <br> | counter |<br>+ counter := nil.<br> {<br> [ [counter := counter + 1] repeat ]. <br> [ [counter := counter + 1. true] whileTrue ]. <br> "[ counter := counter + 1. Smalltalk createStackOverflow ]." "Disabled because VM may actually crash under certain conditions."<br> } do: [:workBlock |<br>+ "Interrupt must work for all common process priorities below lowIOPriority. Test it for some example priorities based on the existing priority constants."<br> {<br> Processor userSchedulingPriority.<br> Processor userSchedulingPriority + 1.<br>+ Processor userInterruptPriority.<br>+ "Processor userInterruptPriority + 1." "Disabled because this might hit the finalization process."<br>- Processor userInterruptPriority<br> } do: [:workPriority |<br> counter := 0.<br> self doTestUserInterruptFor: workBlock priority: workPriority.<br> self assert: counter > 0.<br> self assert: debugger isNotifier]].!<br><br><br></div></blockquote></div>