Christoph Thiede uploaded a new version of SUnitTools to project The Trunk: http://source.squeak.org/trunk/SUnitTools-ct.8.mcz
==================== Summary ====================
Name: SUnitTools-ct.8 Author: ct Time: 19 May 2022, 3:27:28.23078 pm UUID: f0974632-3f1a-9645-acb5-b3549da9493f Ancestors: SUnitTools-mt.7
Fixes redundant dialog when finding a test case, there is no one, and you already have declined to create one. Improves multilingual support.
=============== Diff against SUnitTools-mt.7 ===============
Item was changed: ----- Method: CodeHolder>>testAskToCreateNewTest: (in category '*SUnitTools-running') ----- testAskToCreateNewTest: className | newClass | + (self confirm: 'Test class not found. Create one?' translated) ifFalse: [^ false]. - (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>>testFindTest (in category '*SUnitTools-running') ----- testFindTest | cls destClassName destMessage | cls := self selectedClass ifNil: [^ self]. destClassName := cls name asString, 'Test'. destMessage := self selectedMessageName ifNotNil: [:name | self testSelectorFrom: name]. + self testBrowseClassNamed: destClassName possibleMessageNamed: destMessage.! - (self testBrowseClassNamed: destClassName possibleMessageNamed: destMessage) - ifFalse: [self inform: ('There is no test for {1}' translated - format: {self selectedMessageName ifNil: [cls]})].!
packages@lists.squeakfoundation.org