--- a/TestCase.st	Wed Mar 16 17:52:46 2005 +0100
+++ b/TestCase.st	Thu Aug 18 13:44:32 2005 +0200
@@ -427,6 +427,10 @@
         aStream nextPutAll: self name.
         aStream nextPutAll: '>>'.
         testSelector printOn: aStream
+!
+
+testName
+        ^ testSelector.
 ! !
 
 !TestCase methodsFor:'private'!
@@ -486,6 +490,16 @@
     ].
 ! !
 
+!TestCase methodsFor:'queries'!
+
+isTestCase
+    ^ true
+!
+
+isTestSuite
+    ^ false
+! !
+
 !TestCase methodsFor:'running'!
 
 debug
@@ -570,7 +584,12 @@
 
 run: aResult beforeEachDo:block1 afterEachDo:block2
         block1 value:self value:aResult.
-"/testSelector == #testReadStatement ifTrue:[self halt].
+        aResult runCase: self.
+        block2 value:self value:aResult.
+!
+
+run: aResult beforeEachTestCaseDo:block1 afterEachTestCaseDo:block2
+        block1 value:self value:aResult.
         aResult runCase: self.
         block2 value:self value:aResult.
 !
@@ -606,7 +625,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.37 2004-09-02 08:30:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.38 2005-08-18 11:44:20 cg Exp $'
 ! !
 
 TestCase initialize!