# HG changeset patch
# User Merge Script
# Date 1457676200 -3600
# Node ID 567cade6bd72fd9522fce352a82b762c643cbeb8
# Parent  bb05cfcd8427c76d5502dcc7a3d49aa84db94ace# Parent  34fb6cfb5862a831ba35a926ccfb6e15d2c55ad5
Merge

diff -r bb05cfcd8427 -r 567cade6bd72 quickSelfTest/SelfTest.st
--- a/quickSelfTest/SelfTest.st	Fri Mar 04 06:56:26 2016 +0100
+++ b/quickSelfTest/SelfTest.st	Fri Mar 11 07:03:20 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