--- a/TestRunner.st	Fri Dec 21 16:46:31 2001 +0100
+++ b/TestRunner.st	Thu Feb 07 18:19:00 2002 +0100
@@ -1,8 +1,8 @@
 "{ Package: 'stx:goodies/sunit' }"
 
 ApplicationModel subclass:#TestRunner
-	instanceVariableNames:'result lastPass defect allDefects defectMenu details mode
-		scriptModel script numberOfTestsToRun testsWhichFailed
+	instanceVariableNames:'result lastTestCase lastPass defect allDefects defectMenu details
+		mode scriptModel script numberOfTestsToRun testsWhichFailed
 		testsWhichPassed categoryModel category'
 	classVariableNames:''
 	poolDictionaries:''
@@ -580,6 +580,7 @@
         self tests selection: 0.
         self defects selection: 0.
         result := TestResult new.
+        lastTestCase := nil.
         self displayRefresh
 
     "Created: / 21.6.2000 / 10:58:34 / Sames"
@@ -627,6 +628,7 @@
                     self displayDetails: '...'.
                     aTestSuite addDependentToHierachy: self.
                     result := TestResult new.
+                    lastTestCase := aTestSuite.
                     self showPercentageIndicator.
 
                     errorCountBefore :=  result errorCount.
@@ -954,7 +956,12 @@
 
 displayPass
     self displayGreen.
-    self displayMode: 'Pass'.
+    (lastTestCase notNil 
+    and:[lastTestCase name notNil]) ifTrue:[
+        self displayMode: 'Pass ' , lastTestCase name.
+    ] ifFalse:[
+        self displayMode: 'Pass'.
+    ].
     self displayDetails: result runCount printString , ' run' , self timeSinceLastPassAsString.
     lastPass := Time now
 
@@ -1060,5 +1067,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.29 2001-12-21 14:25:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.30 2002-02-07 17:19:00 james Exp $'
 ! !