--- a/TestCase.st	Mon Nov 04 12:51:01 2002 +0100
+++ b/TestCase.st	Mon Nov 04 12:52:10 2002 +0100
@@ -7,6 +7,13 @@
 	category:'SUnit-Base'
 !
 
+TestCase class instanceVariableNames:'lastTestrunResultOrNil'
+
+"
+ No other class instance variables are inherited by this class.
+"
+!
+
 
 !TestCase class methodsFor:'initialization'!
 
@@ -56,6 +63,22 @@
         ^self sunitAllSelectors select: [:each | 'test*' match: each]
 !
 
+forgetLastTestRunResult
+    lastTestrunResultOrNil := nil
+!
+
+lastTestrunResultOrNil
+    ^ lastTestrunResultOrNil
+!
+
+rememberFailedTestRun
+    lastTestrunResultOrNil := false
+!
+
+rememberPassedTestRun
+    lastTestrunResultOrNil := true
+!
+
 resources
 	^#()
 !
@@ -339,6 +362,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.26 2002-07-11 20:37:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.27 2002-11-04 11:52:10 cg Exp $'
 ! !
+
 TestCase initialize!