--- a/TestCase.st	Wed Jul 06 21:28:17 2011 +0200
+++ b/TestCase.st	Thu Jul 07 12:35:29 2011 +0200
@@ -613,8 +613,15 @@
 !TestCase methodsFor:'running'!
 
 debug
-	[(self class selector: testSelector) runCase]
-		sunitEnsure: [TestResource resetResources: self resources].
+        [
+            (self class selector: testSelector) runCase.
+            self class rememberPassedTest: testSelector.
+        ] sunitEnsure: [
+            TestResource resetResources: self resources
+        ].
+
+    "Modified: / 07-07-2011 / 11:10:50 / jv"
+    "Modified: / 07-07-2011 / 11:34:08 / Jan Vrany <jan.vrant@fit.cvut,cz>"
 !
 
 debugAsFailure
@@ -748,7 +755,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.62 2011-07-05 16:23:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.63 2011-07-07 10:35:29 vrany Exp $'
 !
 
 version_SVN