author | Claus Gittinger <cg@exept.de> |
Wed, 24 Oct 2012 20:58:05 +0200 | |
changeset 94 | 72ef7e71eda0 |
parent 93 | 0b877f7bd029 |
child 95 | 51749adb285f |
--- a/quickSelfTest/SelfTest.st Wed Oct 24 16:31:35 2012 +0200 +++ b/quickSelfTest/SelfTest.st Wed Oct 24 20:58:05 2012 +0200 @@ -100,7 +100,7 @@ Stdout showCR:'Running suite...'. result := suite - run:TestResult new beforeEachDo:[:test | + run:TestResultStX new beforeEachDo:[:test | Stdout showCR:('- running ',test printString). ] afterEachDo:[:test| ]