*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 01 Aug 2011 09:46:36 +0200
changeset 7 dbf69a604f15
parent 6 d17d7a5d19f2
child 8 7a691ced6334
*** empty log message ***
quickSelfTest/SelfTest.st
--- a/quickSelfTest/SelfTest.st	Mon Aug 01 09:39:59 2011 +0200
+++ b/quickSelfTest/SelfTest.st	Mon Aug 01 09:46:36 2011 +0200
@@ -44,7 +44,7 @@
 suite addTest:(RegressionTests::EnumerationTests suite).
 suite addTest:(RegressionTests::ExceptionTest suite).
 
-result := suite run.
+result := suite runBeforeEachDo:[:test | Stdout << ('running ',test printString). Stdout cr ].
 TestResultReporter report:result format:#xml_perfPublisher as:'testresult.xml'.
 
 "/Autoload allSubclassesDo:[:cls |