Marcel Taeumel uploaded a new version of SUnit to project The Trunk:
http://source.squeak.org/trunk/SUnit-mt.102.mcz

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

Name: SUnit-mt.102
Author: mt
Time: 19 April 2015, 7:24:35.203 am
UUID: 3e115dcf-b404-3043-814e-ecb6f43f9192
Ancestors: SUnit-bf.101

Extracted logic of being a test method to be easier reusable in extensions and tools.

Moved test-class-check from SUnitTools to here.

=============== Diff against SUnit-bf.101 ===============

Item was added:
+ ----- Method: CompiledMethod>>isTestMethod (in category '*SUnit-testing') -----
+ isTestMethod
+ 
+ 	^ self methodClass isTestClass and: [self selector isTestSelector]!

Item was added:
+ ----- Method: MethodReference>>isTestMethod (in category '*SUnit-testing') -----
+ isTestMethod
+ 
+ 	^ self compiledMethod isTestMethod!

Item was added:
+ ----- Method: Object>>isTestClass (in category '*SUnit-testing') -----
+ isTestClass
+ 
+ 	^ false!

Item was added:
+ ----- Method: Symbol>>isTestSelector (in category '*SUnit-testing') -----
+ isTestSelector
+ 
+ 	^ self beginsWith: 'test'!

Item was changed:
  ----- Method: TestCase class>>allTestSelectors (in category 'accessing') -----
  allTestSelectors
  
  	^(self allSelectors asArray select: [ :each | 
+ 		each isTestSelector and: [ each numArgs isZero ] ]) sort
- 		(each beginsWith: 'test') and: [ each numArgs isZero ] ]) sort
  			!

Item was added:
+ ----- Method: TestCase class>>isTestClass (in category 'testing') -----
+ isTestClass
+ 	^ true!