--- a/TestSuite.st	Mon Aug 28 16:54:31 2006 +0200
+++ b/TestSuite.st	Thu Aug 31 11:23:00 2006 +0200
@@ -54,6 +54,10 @@
 			
 !
 
+nameOfTest
+    ^ self name
+!
+
 resources
 	resources isNil ifTrue: [resources := self defaultResources].
 	^resources
@@ -65,10 +69,6 @@
 			
 !
 
-testName
-        ^ self name
-!
-
 tests
 	tests isNil ifTrue: [tests := OrderedCollection new].
 	^tests
@@ -165,5 +165,5 @@
 !TestSuite class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.14 2005-08-18 11:44:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.15 2006-08-31 09:23:00 boris Exp $'
 ! !