--- a/TestCase.st	Thu May 16 14:28:04 2002 +0200
+++ b/TestCase.st	Wed Jun 19 14:21:01 2002 +0200
@@ -120,6 +120,13 @@
 	^true
 ! !
 
+!TestCase methodsFor:'Accessing'!
+
+unfinished
+
+	"indicates an unfinished test"
+! !
+
 !TestCase methodsFor:'accessing'!
 
 assert: aBoolean
@@ -298,6 +305,7 @@
 
 run: aResult beforeEachDo:block1 afterEachDo:block2
         block1 value:self value:aResult.
+"/testSelector == #testReadStatement ifTrue:[self halt].
         aResult runCase: self.
         block2 value:self value:aResult.
 !
@@ -333,6 +341,6 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.23 2002-05-16 12:28:04 james Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.24 2002-06-19 12:20:53 cg Exp $'
 ! !
 TestCase initialize!