Add --debug expeccoNET_1_7_0_0
authorStefan Vogel <sv@exept.de>
Tue, 17 Apr 2012 20:45:32 +0200
changeset 87432ff6d3a032
parent 86 29a8a74674f5
child 88 56c85ef68928
Add --debug
quickSelfTest/SelfTest.st
quickSelfTest/run.sh
     1.1 --- a/quickSelfTest/SelfTest.st	Fri Feb 03 14:21:05 2012 +0100
     1.2 +++ b/quickSelfTest/SelfTest.st	Tue Apr 17 20:45:32 2012 +0200
     1.3 @@ -1,8 +1,9 @@
     1.4  "/
     1.5 -"/ runs a nnumber of tests from the exept:regression package (see list below)
     1.6 +"/ runs a number of tests from the exept:regression package (see list below)
     1.7  "/ execute this script using the following command line:
     1.8  "/
     1.9  "/ stx --noBanner -I --execute SelfTest.st
    1.10 +"/   use --debug to debug failed test cases.
    1.11  "/
    1.12  "/ to use with jenkins (+ jUnit plugin):
    1.13  "/ use the following buildscript (in jenkins):
    1.14 @@ -33,6 +34,7 @@
    1.15  
    1.16  "/ Smalltalk loadPackage:'stx:goodies/xml/vw'.
    1.17  "/ Smalltalk loadPackage:'stx:goodies/xml/stx'.
    1.18 +Smalltalk loadPackage:'stx:libcompat'.
    1.19  Smalltalk loadPackage:'stx:libjavascript'.
    1.20  !
    1.21  
    1.22 @@ -97,9 +99,11 @@
    1.23  
    1.24  Stdout showCR:'Running suite...'.
    1.25  result := suite
    1.26 -	    runBeforeEachDo:[:test |
    1.27 +	    run:TestResult new beforeEachDo:[:test |
    1.28  		Stdout showCR:('- running ',test printString).
    1.29 -	    ].
    1.30 +	    ]
    1.31 +	    afterEachDo:[:test| ]
    1.32 +	    debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil.
    1.33  
    1.34  Stdout showCR:'Generating report...'.
    1.35  TestResultReporter
     2.1 --- a/quickSelfTest/run.sh	Fri Feb 03 14:21:05 2012 +0100
     2.2 +++ b/quickSelfTest/run.sh	Tue Apr 17 20:45:32 2012 +0200
     2.3 @@ -1,3 +1,4 @@
     2.4  #!/bin/sh
     2.5 +# use --debug as arg to debug failed test cases
     2.6  
     2.7 -../../../projects/smalltalk/stx --noInfoPrint --noBanner --exitOnInternalError --exitOnMessageSendError -I --execute SelfTest.st
     2.8 +../../../projects/smalltalk/stx --noInfoPrint --noBanner --exitOnInternalError --exitOnMessageSendError -I $* --execute SelfTest.st