1 "/

     2 "/ execute this script using the following command line:

     3 "/

     4 "/ stx -nobanner -I --quick --execute SelfTest.st

     5 "/

     6 Object infoPrinting:false.

     7 ObjectMemory infoPrinting:false.

     8 Processor activeProcess exceptionHandlerSet

     9     on:(Class updateChangeFileQuerySignal)

    10     do:[:ex | ex proceedWith:false ].

    11 

    12 Stream compile:'<< text self nextPutAll:text'.

    13 !

    14 

    15 Stdout << 'Selftest Started '; cr.

    16 !

    17 

    18 Stdout <<'Loading sunit...'; cr.

    19 Smalltalk loadPackage:'stx:goodies/sunit'.

    20 !

    21 

    22 Stdout <<'Loading regression tests...'; cr.

    23 Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').

    24 !

    25 

    26 |result|

    27 

    28 result := RegressionTests::IntegerTest runTests.

    29 TestResultReporter report:result format:#xml_junit as:'IntegerTest.result.xml'.

    30 

    31 "/Autoload allSubclassesDo:[:cls |

    32 "/    cls package = 'exept:regression' ifTrue:[

    33 "/        Stdout << cls name; cr.

    34 "/        cls runTests.

    35 "/    ].

    36 "/].

    37 !