Marcel Taeumel uploaded a new version of SUnitTools to project The Trunk: http://source.squeak.org/trunk/SUnitTools-jr.6.mcz
==================== Summary ====================
Name: SUnitTools-jr.6 Author: jr Time: 5 March 2020, 10:10:24.44376 pm UUID: 2cefdc56-246b-d344-9116-465f7ccc1a20 Ancestors: SUnitTools-jr.5
Preselect tests category when browsing a class without a matching test method. Create the tests category in new classes.
=============== Diff against SUnitTools-tcj.4 ===============
Item was added: + ----- Method: BasicClassOrganizer>>categoryForTestCases (in category '*SUnitTools-accessing') ----- + categoryForTestCases + ^ self categories + detect: [:each | each beginsWith: 'test'] + ifNone: [Categorizer allCategory]!
Item was added: + ----- Method: CodeHolder>>testAskToCreateNewTest: (in category '*SUnitTools-running') ----- + testAskToCreateNewTest: className + | newClass | + (self confirm: 'Test class not found. Create one?') ifFalse: [^ false]. + (ClassBuilder new) + name: className asSymbol + inEnvironment: self selectedClass environment + subclassOf: TestCase + type: #normal + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: + ((self selectedClass category includes: $-) + ifTrue: [((self selectedClass category copyUpToLast: $-), '-Tests')] + ifFalse: [(self selectedClass category, 'Tests')]) asSymbol. + newClass := self selectedClass environment classNamed: className asSymbol. + newClass organization addCategory: #tests. + ^ true!
Item was changed: ----- Method: CodeHolder>>testBrowseClassNamed:possibleMessageNamed: (in category '*SUnitTools-running') ----- testBrowseClassNamed: aClassName possibleMessageNamed: aMessageName | cls selector | + (self class environment hasClassNamed: aClassName) ifFalse: + [(self testAskToCreateNewTest: aClassName) ifFalse: [^ self]]. - (self class environment hasClassNamed: aClassName) ifFalse: ["no dice" ^ self]. cls := self class environment classNamed: aClassName.
(aMessageName notNil and: [cls includesLocalSelector: (selector := aMessageName asSymbol)]) ifTrue: [ToolSet browse: cls selector: selector] + ifFalse: + [ToolSet + browseClass: cls + category: cls organization categoryForTestCases].! - ifFalse: [ToolSet browseClass: cls].!
packages@lists.squeakfoundation.org