--- a/TestCase.st	Tue Nov 19 12:10:57 2002 +0100
+++ b/TestCase.st	Tue Nov 19 12:11:11 2002 +0100
@@ -45,14 +45,16 @@
 !
 
 suite
-"/        ^self buildSuite
-        | testSelectors result |
-        testSelectors := self sunitSelectors select: [:each | 'test*' match: each].
-        testSelectors sort.
-        result := TestSuite new.
-        result name:self name.
-        testSelectors do: [:each | result addTest: (self selector: each)].
-        ^result
+        ^self buildSuite
+"/        | testSelectors result |
+"/
+"/        testSelectors := self sunitSelectors select: [:each | 'test*' match: each].
+"/        testSelectors sort.
+"/        
+"/        result := TestSuite new.
+"/        result name:self name.
+"/        testSelectors do: [:each | result addTest: (self selector: each)].
+"/        ^result
 
     "Modified: / 21.6.2000 / 10:05:24 / Sames"
 ! !
@@ -419,7 +421,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.30 2002-11-18 17:13:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.31 2002-11-19 11:11:11 cg Exp $'
 ! !
 
 TestCase initialize!