[Pkg] The Trunk: SUnitGUI-ul.52.mcz

[commits at source.squeak.org]

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 ].
  	!