*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sat, 30 Jul 2011 20:34:35 +0200
changeset 090bba565014c
child 1 33fd426b59e7
*** empty log message ***
quickSelfTest/SelfTest.st
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/quickSelfTest/SelfTest.st	Sat Jul 30 20:34:35 2011 +0200
     1.3 @@ -0,0 +1,37 @@
     1.4 +"/
     1.5 +"/ execute this script using the following command line:
     1.6 +"/
     1.7 +"/ stx -nobanner -I --quick --execute SelfTest.st
     1.8 +"/
     1.9 +Object infoPrinting:false.
    1.10 +ObjectMemory infoPrinting:false.
    1.11 +Processor activeProcess exceptionHandlerSet
    1.12 +    on:(Class updateChangeFileQuerySignal)
    1.13 +    do:[:ex | ex proceedWith:false ].
    1.14 +
    1.15 +Stream compile:'<< text self nextPutAll:text'.
    1.16 +!
    1.17 +
    1.18 +Stdout << 'Selftest Started '; cr.
    1.19 +!
    1.20 +
    1.21 +Stdout <<'Loading sunit...'; cr.
    1.22 +Smalltalk loadPackage:'stx:goodies/sunit'.
    1.23 +!
    1.24 +
    1.25 +Stdout <<'Loading regression tests...'; cr.
    1.26 +Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').
    1.27 +!
    1.28 +
    1.29 +|result|
    1.30 +
    1.31 +result := RegressionTests::IntegerTest runTests.
    1.32 +TestResultReporter report:result format:#xml_junit as:'IntegerTest.result.xml'.
    1.33 +
    1.34 +"/Autoload allSubclassesDo:[:cls |
    1.35 +"/    cls package = 'exept:regression' ifTrue:[
    1.36 +"/        Stdout << cls name; cr.
    1.37 +"/        cls runTests.
    1.38 +"/    ].
    1.39 +"/].
    1.40 +!