--- a/quickSelfTest/SelfTest.st Fri Feb 03 14:21:05 2012 +0100
+++ b/quickSelfTest/SelfTest.st Tue Apr 17 20:45:32 2012 +0200
@@ -1,8 +1,9 @@
"/
-"/ runs a nnumber of tests from the exept:regression package (see list below)
+"/ runs a number of tests from the exept:regression package (see list below)
"/ execute this script using the following command line:
"/
"/ stx --noBanner -I --execute SelfTest.st
+"/ use --debug to debug failed test cases.
"/
"/ to use with jenkins (+ jUnit plugin):
"/ use the following buildscript (in jenkins):
@@ -33,6 +34,7 @@
"/ Smalltalk loadPackage:'stx:goodies/xml/vw'.
"/ Smalltalk loadPackage:'stx:goodies/xml/stx'.
+Smalltalk loadPackage:'stx:libcompat'.
Smalltalk loadPackage:'stx:libjavascript'.
!
@@ -97,9 +99,11 @@
Stdout showCR:'Running suite...'.
result := suite
- runBeforeEachDo:[:test |
+ run:TestResult new beforeEachDo:[:test |
Stdout showCR:('- running ',test printString).
- ].
+ ]
+ afterEachDo:[:test| ]
+ debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil.
Stdout showCR:'Generating report...'.
TestResultReporter
--- a/quickSelfTest/run.sh Fri Feb 03 14:21:05 2012 +0100
+++ b/quickSelfTest/run.sh Tue Apr 17 20:45:32 2012 +0200
@@ -1,3 +1,4 @@
#!/bin/sh
+# use --debug as arg to debug failed test cases
-../../../projects/smalltalk/stx --noInfoPrint --noBanner --exitOnInternalError --exitOnMessageSendError -I --execute SelfTest.st
+../../../projects/smalltalk/stx --noInfoPrint --noBanner --exitOnInternalError --exitOnMessageSendError -I $* --execute SelfTest.st