*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 11 Mar 2016 00:30:11 +0100
changeset 30134fb6cfb5862
parent 299 bd6d9712e859
child 302 567cade6bd72
child 304 86c8e43c2101
*** empty log message ***
quickSelfTest/SelfTest.st
     1.1 --- a/quickSelfTest/SelfTest.st	Fri Mar 04 04:53:50 2016 +0000
     1.2 +++ b/quickSelfTest/SelfTest.st	Fri Mar 11 00:30:11 2016 +0100
     1.3 @@ -38,7 +38,7 @@
     1.4  Smalltalk loadPackage:'stx:libjavascript'.
     1.5  !
     1.6  
     1.7 -|suite result|
     1.8 +|suite result debugging|
     1.9  
    1.10  Stdout showCR:'Creating suite...'.
    1.11  suite := TestSuite named:'SelfTest'.
    1.12 @@ -66,12 +66,15 @@
    1.13  ].
    1.14  
    1.15  Stdout showCR:'Running suite...'.
    1.16 +debugging := (Smalltalk commandLineArgumentNamed:'--debug') notNil.
    1.17  result := suite
    1.18  	    run:TestResultStX new beforeEachDo:[:test |
    1.19  		Stdout showCR:('- running ',test printString).
    1.20  	    ]
    1.21 -	    afterEachDo:[:test| ]
    1.22 -	    debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil.
    1.23 +	    afterEachDo:[:test|
    1.24 +		Stdout showCR:('- done ',test printString).
    1.25 +	    ]
    1.26 +	    debug:debugging.
    1.27  
    1.28  Stdout showCR:'Generating report...'.
    1.29  TestResultReporter