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

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

Name: SUnitGUI-mt.73
Author: mt
Time: 4 September 2019, 5:28:26.809072 pm
UUID: 56e5b083-0108-450e-92d4-9bea9160a539
Ancestors: SUnitGUI-mt.72

Show durations in test runner.

=============== Diff against SUnitGUI-mt.72 ===============

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 allTestSelectors size}]
+ 									ifTrue: [
+ 										| duration |
+ 										duration := (class history at: #duration).
+ 										'{1} ({2} tests, {3})' format: {
+ 											class name.
+ 											class allTestSelectors size.
+ 											duration = 0 ifTrue: ['< 1 ms'] ifFalse: [
+ 												duration < 1000 ifTrue: [duration asString, ' ms'] ifFalse: [
+ 													(duration / 1000) rounded asString, ' secs']]}]]] !
- 							ifFalse: ['{1} ({2})' format: {class name. class allTestSelectors size}]]!

Item was changed:
  ----- Method: TestRunner>>saveResultInHistory (in category 'history saving') -----
  saveResultInHistory
+ 	result dispatchResultsIntoHistory.
+ 	self changed: #classList.!
- 	result dispatchResultsIntoHistory!

Item was changed:
  ----- Method: TestRunner>>updateResults (in category 'updating') -----
  updateResults
  	"<lint: #expect rule: #guardingClause>"
  	"<lint: #expect rule: #longMethods>"
  
  	self updateStatus: false.
  	failedList size = result failures size ifFalse: [
  		failedList := result failures asArray
  			sort: [ :a :b | a printString <= b printString ].
  		failedSelected := nil.
  		self 
  			changed: #failedList; 
  			changed: #failedSelected;
  			changed: #hasFailures;
  			changed: #hasProgress  ].
  	errorList size = result errors size ifFalse: [
  		errorList := result errors asArray
  			sort: [ :a :b | a printString <= b printString ].
  		errorSelected := nil.
  		self 
  			changed: #errorList; 
  			changed: #errorSelected;
  			changed: #hasErrors;
+ 			changed: #hasProgress;
+ 			changed: #classList ].!
- 			changed: #hasProgress ].!