--- a/TestRunner.st	Thu Nov 07 19:03:46 2002 +0100
+++ b/TestRunner.st	Mon Nov 11 10:50:19 2002 +0100
@@ -676,7 +676,7 @@
 "/                                    testsWhichPassed add:caseName.
 "/                                    testsWhichFailed remove:caseName ifAbsent:nil.
                                 ] ifFalse:[
-                                    self testFailed:caseName
+                                    self testFailed:caseName withResult:result
                                 ].
                                 errorCountBefore :=  errorCountAfter.
                                 failureCountBefore := failureCountAfter
@@ -836,11 +836,15 @@
     testsWhichFailed := Set new.
 
     TestCase allSubclassesDo:[:cls |
-        cls lastTestrunResultOrNil == true ifTrue:[
-            testsWhichPassed add:(cls name)
-        ] ifFalse:[
-            cls lastTestrunResultOrNil == false ifTrue:[
-                testsWhichFailed add:(cls name)
+        |lastResult className|
+
+        lastResult := cls lastTestRunResultOrNil.
+        lastResult notNil ifTrue:[
+            className := cls name.
+            lastResult == true ifTrue:[
+                testsWhichPassed add:className
+            ] ifFalse:[
+                testsWhichFailed add:className
             ]
         ]
     ].
@@ -902,14 +906,14 @@
     ^ self scriptModel value at:scriptIndex ifAbsent:nil.
 !
 
-testFailed:caseName
+testFailed:caseName withResult:result
     |cls|
-
+.
     self removeFromPassedTests:caseName.
     self addToFailedTests:caseName.
 
     (cls := Smalltalk classNamed:caseName) notNil ifTrue:[
-        cls rememberFailedTestRun
+        cls rememberFailedTestRunWithResult:result.
     ].
 !
 
@@ -1107,7 +1111,7 @@
             result hasPassed ifTrue:[
                 self testPassed:script
             ] ifFalse:[
-                self testFailed:script
+                self testFailed:script withResult:result
             ].
         ].
 !
@@ -1123,5 +1127,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.44 2002-11-07 18:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.45 2002-11-11 09:50:19 cg Exp $'
 ! !