--- a/TestCase.st	Mon Nov 07 11:20:22 2011 +0100
+++ b/TestCase.st	Thu Nov 17 21:05:34 2011 +0100
@@ -17,6 +17,33 @@
 
 !TestCase class methodsFor:'initialization'!
 
+flushAll
+
+    "Flush all remembered outcomes in all testcases"
+
+    self withAllSubclassesDo:[:cls|
+        cls flushRememberedOutcomes
+    ]
+
+    "Created: / 17-11-2011 / 19:18:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+flushRememberedOutcomes
+
+    "Flushes all remembered outcomes for the receiver"
+
+    | outcomes |
+
+    lastOutcomes isNil ifTrue:[^self].
+    outcomes := lastOutcomes. 
+    lastOutcomes := nil.
+    outcomes do:[:outcome|
+        self lastTestRunResultChanged: outcome selector.
+    ]
+
+    "Created: / 17-11-2011 / 19:17:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 initialize
     ResumableTestFailure autoload
 
@@ -804,11 +831,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.83 2011-11-02 14:44:29 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.84 2011-11-17 20:05:34 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.83 2011-11-02 14:44:29 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.84 2011-11-17 20:05:34 vrany Exp $'
 !
 
 version_SVN