# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1457652611 -3600
# Node ID 34fb6cfb5862a831ba35a926ccfb6e15d2c55ad5
# Parent  bd6d9712e859dc80399d45959fcb16cd60020b97
*** empty log message ***

diff -r bd6d9712e859 -r 34fb6cfb5862 quickSelfTest/SelfTest.st
--- a/quickSelfTest/SelfTest.st	Fri Mar 04 04:53:50 2016 +0000
+++ b/quickSelfTest/SelfTest.st	Fri Mar 11 00:30:11 2016 +0100
@@ -38,7 +38,7 @@
 Smalltalk loadPackage:'stx:libjavascript'.
 !
 
-|suite result|
+|suite result debugging|
 
 Stdout showCR:'Creating suite...'.
 suite := TestSuite named:'SelfTest'.
@@ -66,12 +66,15 @@
 ].
 
 Stdout showCR:'Running suite...'.
+debugging := (Smalltalk commandLineArgumentNamed:'--debug') notNil.
 result := suite
 	    run:TestResultStX new beforeEachDo:[:test |
 		Stdout showCR:('- running ',test printString).
 	    ]
-	    afterEachDo:[:test| ]
-	    debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil.
+	    afterEachDo:[:test|
+		Stdout showCR:('- done ',test printString).
+	    ]
+	    debug:debugging.
 
 Stdout showCR:'Generating report...'.
 TestResultReporter