--- a/TestCaseWithArguments.st	Fri Oct 31 14:12:47 2008 +0100
+++ b/TestCaseWithArguments.st	Fri Oct 31 14:12:53 2008 +0100
@@ -64,6 +64,10 @@
             testArguments printOn: aStream.
             aStream nextPutAll: ')'.
         ].
+!
+
+testName
+        ^ testSelector,'(',testArguments first printString,')'.
 ! !
 
 !TestCaseWithArguments methodsFor:'private'!
@@ -80,5 +84,5 @@
 !TestCaseWithArguments class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseWithArguments.st,v 1.1 2008-10-31 12:47:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseWithArguments.st,v 1.2 2008-10-31 13:12:53 cg Exp $'
 ! !