--- a/TestCase.st	Tue Oct 16 13:57:46 2001 +0200
+++ b/TestCase.st	Wed Nov 21 16:04:51 2001 +0100
@@ -40,12 +40,13 @@
 !
 
 suite
-	| testSelectors result |
-	testSelectors := self sunitSelectors select: [:each | 'test*' match: each].
-	testSelectors sort.
-	result := TestSuite new.
-	testSelectors do: [:each | result addTest: (self selector: each)].
-	^result
+        | testSelectors result |
+        testSelectors := self sunitSelectors select: [:each | 'test*' match: each].
+        testSelectors sort.
+        result := TestSuite new.
+        result name:self name.
+        testSelectors do: [:each | result addTest: (self selector: each)].
+        ^result
 
     "Modified: / 21.6.2000 / 10:05:24 / Sames"
 ! !
@@ -130,6 +131,10 @@
 
 !TestCase methodsFor:'Printing'!
 
+name
+        ^ self class name.
+!
+
 printOn: aStream
 	aStream nextPutAll: self class name.
 	aStream nextPutAll: '>>'.
@@ -210,6 +215,6 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.14 2001-10-16 11:57:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.15 2001-11-21 15:04:51 cg Exp $'
 ! !
 TestCase initialize!