--- 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