<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
"... by adding an explicit check for "tests size = 1" which then avoids the invocation of the progress bar." It took me quite a while to figure out the diff via email because the entire formatting of that method was changed. ;-)<div><br></div><div>Thanks, that progress bar was annoying.<br><div><br></div><div>Best,</div><div>Marcel</div></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;">
<p style="color: #AAAAAA; margin-top: 10px;">Am 09.10.2019 23:50:12 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">Chris Muller uploaded a new version of SUnitGUI to project The Trunk:<br>http://source.squeak.org/trunk/SUnitGUI-cmm.77.mcz<br><br>==================== Summary ====================<br><br>Name: SUnitGUI-cmm.77<br>Author: cmm<br>Time: 9 October 2019, 4:50:05.629938 pm<br>UUID: 240949db-946f-4c55-bbec-49f2b069fb2d<br>Ancestors: SUnitGUI-mt.76<br><br>Relieve the user from having to move or delete the unneeded progress bar when debugging individual tests from the Test Runner.<br><br>=============== Diff against SUnitGUI-mt.76 ===============<br><br>Item was changed:<br> ----- Method: TestRunner>>basicRunSuite:do: (in category 'processing') -----<br>+ basicRunSuite: aTestSuite do: aBlock <br>- basicRunSuite: aTestSuite do: aBlock<br>- <br> self basicSetUpSuite: aTestSuite.<br>+ [ | prefix |<br>+ prefix := aTestSuite name isEmptyOrNil<br>+ ifTrue: [ '' ]<br>+ ifFalse: [ aTestSuite name , ' - ' ].<br>+ aTestSuite tests size = 1<br>+ ifTrue: [ aTestSuite tests do: aBlock ]<br>+ ifFalse:<br>+ [ aTestSuite tests<br>+ do: aBlock<br>+ displayingProgress: [ : test | prefix , test printString ]<br>+ every: 0 ] ] ensure: [ self basicTearDownSuite: aTestSuite ]!<br>- [ <br>- | prefix |<br>- prefix := aTestSuite name isEmptyOrNil<br>- ifTrue: [ '' ]<br>- ifFalse: [ aTestSuite name, ' - ' ].<br>- aTestSuite tests <br>- do: aBlock<br>- displayingProgress: [ :test | prefix, test printString ]<br>- every: 0 "Update the label for all tests" ]<br>- ensure: [ self basicTearDownSuite: aTestSuite ].<br>- !<br><br><br></div></blockquote>
</div></body>