--- a/TestCase.st	Mon Apr 26 10:45:43 2010 +0200
+++ b/TestCase.st	Mon Apr 26 10:46:15 2010 +0200
@@ -183,8 +183,12 @@
 !
 
 testSelectors
+    "the default here is all methods in a test*-category;
+     this can, of course, be redefined in a testCase-class, which knows better"
 
-        ^ (self selectors select: [:each | 'test*' match: each]) asOrderedCollection sort
+    ^ (self selectors select: [:each | 'test*' match: each]) asOrderedCollection sort
+
+    "Modified: / 24-04-2010 / 14:04:51 / cg"
 ! !
 
 !TestCase class methodsFor:'building suites'!
@@ -787,11 +791,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.54 2010-03-10 19:55:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.55 2010-04-26 08:46:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.54 2010-03-10 19:55:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.55 2010-04-26 08:46:15 cg Exp $'
 ! !
 
 TestCase initialize!