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

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

Name: SUnitGUI-lrnp.88
Author: lrnp
Time: 13 April 2022, 10:46:03.698845 pm
UUID: 9b92a8a4-5204-4997-b854-c004530a0f54
Ancestors: SUnitGUI-mt.87

select test case classes by history

complements SUnit-lrnp.140

Uses history to select classes that previously failed or raised errors, regardless of whether or not the TestRunner window has been cleared. Extends the functionality of re-running not-passing tests beyond the "Run Failures" and "Run Errors" buttons.

=============== Diff against SUnitGUI-mt.87 ===============

Item was changed:
  ----- Method: TestRunner>>classMenu: (in category 'accessing-classes') -----
  classMenu: aMenu
  	^ aMenu
  		title: 'Classes';
  		add: 'Browse' action: #browseClass;
  		addLine;
  		add: 'Select all' action: #selectAllClasses;
  		add: 'Select subclasses' action: #selectSubclasses;
  		add: 'Select inversion' action: #selectInverseClasses;
  		add: 'Select none' action: #selectNoClasses;
  		addLine;
+ 		add: 'Select with issues' action: #selectClassesWithIssues;
+ 		add: 'Select failed' action: #selectClassesWithFailures;
+ 		add: 'Select raised errors' action: #selectClassesWithRaisedErrors;
+ 		addLine;
  		add: 'Filter...' action: #filterClasses;
  		addLine;
  		add: 'Refresh' action: #updateClasses;
  		yourself.!

Item was added:
+ ----- Method: TestRunner>>selectClassesWithFailures (in category 'accessing-classes') -----
+ selectClassesWithFailures
+ 	"Use test history to select classes that failed."
+ 
+ 	classesSelected := classes select: [:class | class hasAnyFailures].
+ 	self changed: #allSelections;
+ 		changed: #classSelected;
+ 		changed: #hasRunnable!

Item was added:
+ ----- Method: TestRunner>>selectClassesWithIssues (in category 'accessing-classes') -----
+ selectClassesWithIssues
+ 	"Use test history to select classes that previously did not fully pass."
+ 
+ 	classesSelected := classes select: [:class | class hasAnyIssues].
+ 	self changed: #allSelections;
+ 		changed: #classSelected;
+ 		changed: #hasRunnable!

Item was added:
+ ----- Method: TestRunner>>selectClassesWithRaisedErrors (in category 'accessing-classes') -----
+ selectClassesWithRaisedErrors
+ 	"Use test history to select classes that raised errors."
+ 
+ 	classesSelected := classes select: [:class | class hasRaisedAnyErrors].
+ 	self changed: #allSelections;
+ 		changed: #classSelected;
+ 		changed: #hasRunnable!