Levente Uzonyi uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-ul.52.mcz==================== Summary ====================
Name: SUnitGUI-ul.52
Author: ul
Time: 7 September 2012, 9:07:18.081 pm
UUID: 5d4875eb-80a7-794d-89fd-1c0570ef8675
Ancestors: SUnitGUI-cmm.51
Show which test is being run by TestRunner on the progress bar.
=============== Diff against SUnitGUI-cmm.51 ===============
Item was changed:
----- Method: TestRunner>>basicRunSuite:do: (in category 'processing') -----
basicRunSuite: aTestSuite do: aBlock
+
self basicSetUpSuite: aTestSuite.
+ [
+ | prefix |
+ prefix := aTestSuite name isEmptyOrNil
+ ifTrue: [ '' ]
+ ifFalse: [ aTestSuite name, ' - ' ].
+ aTestSuite tests
+ do: aBlock
+ displayingProgress: [ :test | prefix, test printString ]
+ every: 0 "Update the label for all tests" ]
+ ensure: [ self basicTearDownSuite: aTestSuite ].
- [ aTestSuite name isEmptyOrNil
- ifTrue: [ aTestSuite tests do: aBlock ]
- ifFalse: [ aTestSuite tests do: aBlock displayingProgress: aTestSuite name ] ]
- ensure: [ self basicTearDownSuite: aTestSuite ].
!