A new version of SUnitTools was added to project The Inbox:
http://source.squeak.org/inbox/SUnitTools-ct.5.mcz

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

Name: SUnitTools-ct.5
Author: ct
Time: 31 May 2019, 2:15:36.714053 pm
UUID: 397d3b85-7ac5-3645-baa9-b9f848d90880
Ancestors: SUnitTools-tcj.4

Change CodeHolder>>testRunSuite: -- if multiple tests fail, instead of a UIManager dialog, open a TestRunner window that provides specific information.

Depends on SUnitGUI-ct.70.

=============== Diff against SUnitTools-tcj.4 ===============

Item was changed:
  ----- Method: CodeHolder>>testRunSuite: (in category '*SUnitTools-running') -----
  testRunSuite: suite
  	
+ 	| runner result |
+ 	(suite isKindOf: TestCase)
+ 		ifFalse: [
+ 			runner := TestRunner newForSuite: suite.
+ 			result := runner runAll; result]
+ 		ifTrue: [result := suite run].
- 	| result |
- 	result := suite run.
  
  	(result respondsTo: #dispatchResultsIntoHistory)
  		ifTrue: [result dispatchResultsIntoHistory].
  
  	result hasPassed ifTrue: [^ self].
  	
+ 	result defects size = 1
+ 		ifTrue: [result defects anyOne debug]
+ 		ifFalse: [runner open]!
- 	(result defects size = 1
- 		ifTrue: [result defects anyOne]
- 		ifFalse: [UIManager default
- 				chooseFrom: (result defects collect: [:each | each class name , '>>' , each selector printString])
- 				values: result defects
- 				title: ('{1} passes, {2} failures, {3} errors\\Debug a failure or error?' format: {
- 						result runCount . result failureCount . result errorCount}) withCRs]
- 	) ifNotNil: [:defect | defect debug].
- !