--- a/TestCase.st	Tue Feb 26 11:13:44 2002 +0100
+++ b/TestCase.st	Tue Feb 26 11:30:47 2002 +0100
@@ -25,47 +25,7 @@
     "
 ! !
 
-!TestCase class methodsFor:'Building Suites'!
-
-buildSuite
-
-	| suite |
-	^self isAbstract 
-		ifTrue: 
-			[suite := TestSuite new.
-			suite name: self name asString.
-			self allSubclasses do: [:each | each isAbstract ifFalse: [suite addTest: each buildSuiteFromSelectors]].
-			suite]
-		ifFalse: [self buildSuiteFromSelectors]
-!
-
-buildSuiteFromAllSelectors
-	^self buildSuiteFromMethods: self allTestSelectors
-!
-
-buildSuiteFromLocalSelectors
-	^self buildSuiteFromMethods: self testSelectors
-!
-
-buildSuiteFromMethods: testMethods 
-	^testMethods 
-		inject: ((TestSuite new)
-				name: self name asString;
-				yourself)
-		into: 
-			[:suite :selector | 
-			suite
-				addTest: (self selector: selector);
-				yourself]
-!
-
-buildSuiteFromSelectors
-	^self shouldInheritSelectors
-		ifTrue: [self buildSuiteFromAllSelectors]
-		ifFalse: [self buildSuiteFromLocalSelectors]
-! !
-
-!TestCase class methodsFor:'Instance Creation'!
+!TestCase class methodsFor:'instance creation'!
 
 debug: aSymbol
 	^(self selector: aSymbol) debug
@@ -106,6 +66,46 @@
         ^self sunitSelectors select: [:each | 'test*' match: each]
 ! !
 
+!TestCase class methodsFor:'building Suites'!
+
+buildSuite
+
+	| suite |
+	^self isAbstract 
+		ifTrue: 
+			[suite := TestSuite new.
+			suite name: self name asString.
+			self allSubclasses do: [:each | each isAbstract ifFalse: [suite addTest: each buildSuiteFromSelectors]].
+			suite]
+		ifFalse: [self buildSuiteFromSelectors]
+!
+
+buildSuiteFromAllSelectors
+	^self buildSuiteFromMethods: self allTestSelectors
+!
+
+buildSuiteFromLocalSelectors
+	^self buildSuiteFromMethods: self testSelectors
+!
+
+buildSuiteFromMethods: testMethods 
+	^testMethods 
+		inject: ((TestSuite new)
+				name: self name asString;
+				yourself)
+		into: 
+			[:suite :selector | 
+			suite
+				addTest: (self selector: selector);
+				yourself]
+!
+
+buildSuiteFromSelectors
+	^self shouldInheritSelectors
+		ifTrue: [self buildSuiteFromAllSelectors]
+		ifFalse: [self buildSuiteFromLocalSelectors]
+! !
+
 !TestCase class methodsFor:'testing'!
 
 isAbstract
@@ -323,6 +323,6 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.21 2002-02-26 10:13:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.22 2002-02-26 10:30:20 cg Exp $'
 ! !
 TestCase initialize!