# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1225458773 -3600
# Node ID ff752e67b964efd6834e28c16d46cde1d3db575b
# Parent  bbb55d499a1f64eefa3a6d131c9aedce3550d02d
*** empty log message ***

diff -r bbb55d499a1f -r ff752e67b964 TestCaseWithArguments.st
--- 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 $'
 ! !