Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-lrnp.90.mcz
==================== Summary ====================
Name: SUnitGUI-lrnp.90 Author: lrnp Time: 18 April 2022, 5:13:47.989855 pm UUID: bd9d504c-1cea-4133-b959-74ba427665ef Ancestors: SUnitGUI-mt.89
complements SUnit-lrnp.141
=============== Diff against SUnitGUI-mt.89 ===============
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 failures' action: #selectClassesWithFailures; + add: 'Select errors' action: #selectClassesWithErrors; + add: 'Select failures & errors' action: #selectClassesWithDefects; - add: 'Select errors' action: #selectClassesWithRaisedErrors; - add: 'Select failures & errors' action: #selectClassesWithIssues; addLine; add: 'Filter...' action: #filterClasses; addLine; add: 'Refresh' action: #updateClasses; yourself.!
Item was added: + ----- Method: TestRunner>>selectClassesWithDefects (in category 'accessing-classes') ----- + selectClassesWithDefects + "Use test history to select classes that previously did not fully pass." + + classesSelected := classes select: [:class | class hasDefects]. + self changed: #allSelections; + changed: #classSelected; + changed: #hasRunnable!
Item was added: + ----- Method: TestRunner>>selectClassesWithErrors (in category 'accessing-classes') ----- + selectClassesWithErrors + "Use test history to select classes that raised errors." + + classesSelected := classes select: [:class | class hasErrors]. + self changed: #allSelections; + changed: #classSelected; + changed: #hasRunnable!
Item was changed: ----- Method: TestRunner>>selectClassesWithFailures (in category 'accessing-classes') ----- selectClassesWithFailures "Use test history to select classes that failed."
+ classesSelected := classes select: [:class | class hasFailures]. - classesSelected := classes select: [:class | class hasAnyFailures]. self changed: #allSelections; changed: #classSelected; changed: #hasRunnable!
Item was removed: - ----- 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 removed: - ----- 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!