--- a/TestRunner.st	Thu Dec 20 16:13:00 2001 +0100
+++ b/TestRunner.st	Fri Dec 21 15:25:25 2001 +0100
@@ -624,6 +624,7 @@
                     |errorCountBefore failureCountBefore|
 
                     self displayRunning.
+                    self displayDetails: '...'.
                     aTestSuite addDependentToHierachy: self.
                     result := TestResult new.
                     self showPercentageIndicator.
@@ -634,12 +635,28 @@
                     [
                         aTestSuite 
                             run:result 
-                            afterEachDo:[:eachCase :eachResult |  
+                            beforeEachDo:[:eachCaseOrSuite :eachResult |  
                                 |caseName passed errorCountAfter failureCountAfter|
 
-                                caseName := eachCase name.
+                                (eachCaseOrSuite isKindOf:TestCase) ifTrue:[
+                                    caseName := eachCaseOrSuite selector.
+                                ] ifFalse:[
+                                    caseName := eachCaseOrSuite name.
+                                ].
                                 caseName size == 0 ifTrue:[self halt].
 
+                                self displayDetails:(caseName , '...').
+
+                                testsWhichFailed remove:caseName ifAbsent:nil.
+                                testsWhichPassed remove:caseName ifAbsent:nil.
+                            ]
+                            afterEachDo:[:eachCaseOrSuite :eachResult |  
+                                |caseName passed errorCountAfter failureCountAfter|
+
+                                caseName := eachCaseOrSuite name.
+                                caseName size == 0 ifTrue:[self halt].
+                                self displayDetails:('...').
+
                                 errorCountAfter := result errorCount.
                                 failureCountAfter := result failureCount.
                                 passed := (errorCountAfter == errorCountBefore) 
@@ -654,7 +671,6 @@
                                 ].
                                 errorCountBefore :=  errorCountAfter.
                                 failureCountBefore := failureCountAfter
-
                             ]
                     ] ensure: [
                         aTestSuite removeDependentFromHierachy: self.
@@ -969,7 +985,7 @@
 displayRunning:scriptName
         self displayYellow.
         self displayMode:('running ' , scriptName allBold). 
-        self displayDetails: '...'.
+"/        self displayDetails: '...'.
         self repairDamage.
 !
 
@@ -1044,5 +1060,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.28 2001-12-20 15:13:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.29 2001-12-21 14:25:25 cg Exp $'
 ! !