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]})].!