Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-mt.79.mcz
==================== Summary ====================
Name: SUnitGUI-mt.79 Author: mt Time: 24 February 2020, 1:47:43.366031 pm UUID: d06b4c53-dec3-7b42-b5f3-6966b2b1b230 Ancestors: SUnitGUI-cmm.78
Considering the more descriptive labels in the test runner, fixes a bug that shows too many tests in a case's text label. We don't have *that many* tests. :-)
(We might want to introduce #actualTestSelectors or something in the future.)
=============== Diff against SUnitGUI-cmm.78 ===============
Item was changed: ----- Method: TestRunner>>classList (in category 'accessing-classes') ----- classList | helper | 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: [ (class history notNil and: [class history includesKey: #duration]) + ifFalse: ['{1} ({2} tests)' format: { + class name. + (class shouldInheritSelectors + ifTrue: [class allTestSelectors] + ifFalse: [class testSelectors]) size}] - ifFalse: ['{1} ({2} tests)' format: {class name. class allTestSelectors size}] ifTrue: [ | duration | duration := (class history at: #duration). '{1} ({2} tests, {3})' format: { class name. + (class shouldInheritSelectors + ifTrue: [class allTestSelectors] + ifFalse: [class testSelectors]) size. - class allTestSelectors size. duration = 0 ifTrue: ['< 1 ms'] ifFalse: [ duration < 1000 ifTrue: [duration asString, ' ms'] ifFalse: [ (duration / 1000) rounded asString, ' secs']]}]]] !
packages@lists.squeakfoundation.org