--- a/TestSuite.st Tue Nov 06 23:01:34 2012 +0100
+++ b/TestSuite.st Tue Nov 06 23:02:31 2012 +0100
@@ -168,7 +168,7 @@
run:result beforeEachDo:before afterEachDo:after resetResources:resetResources debug:doDebug
result timestamp:(Timestamp now).
- result name:name.
+ result name isNil ifTrue:[ result name:name ]. "will only change once"
[
self tests do:[:each |
self sunitChanged:each.
@@ -236,7 +236,7 @@
!TestSuite class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.33 2012-10-24 22:36:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.34 2012-11-06 22:02:31 cg Exp $'
!
version_SVN