[Pkg] The Trunk: SUnitGUI-mt.72.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-mt.72.mcz

==================== Summary ====================

Name: SUnitGUI-mt.72
Author: mt
Time: 3 September 2019, 9:04:53.468063 am
UUID: 7a1aee8a-d3d3-b749-b2b9-647310559a1a
Ancestors: SUnitGUI-mt.71

Fixes the class hierarchy in the test runner. Adds number of tests to the class labels.

Needs Tools-mt.880. We might want to find a better place for tree-to-list flattening. Yet, this is not a new dependency from SUnitGUI to the tools package.

=============== Diff against SUnitGUI-mt.71 ===============

Item was changed:
  ----- Method: TestRunner>>classList (in category 'accessing-classes') -----
  classList
+ 	
+ 	| helper |
- 	| offset |
  	classes isEmpty ifTrue: [ ^ classes ].
+ 	
+ 	helper := Browser new.
+ 	^ helper
+ 		flattenHierarchyTree: (helper createHierarchyTreeOf: classes)
+ 		on: OrderedCollection new
+ 		indent: ''
+ 		by: '  '
+ 		format: [:class | class isAbstract
+ 							ifTrue: [class name asText addAttribute: TextEmphasis italic; yourself]
+ 							ifFalse: ['{1} ({2})' format: {class name. class allTestSelectors size}]]!
- 	offset := classes first allSuperclasses size.
- 	^ classes collect: [ :each | | ident |
- 		ident := String 
- 			new: 2 * (0 max: each allSuperclasses size - offset) 
- 			withAll: $ .
- 		each isAbstract
- 			ifFalse: [ ident , each name ]
- 			ifTrue: [ 
- 				ident asText , each name asText 
- 					addAttribute: TextEmphasis italic;
- 					yourself ] ].!