quickSelfTest/SelfTest.st
changeset 2 2e9d1362e0ad
parent 0 90bba565014c
child 3 62bd5f071940
equal deleted inserted replaced
1:33fd426b59e7 2:2e9d1362e0ad
    24 !
    24 !
    25 
    25 
    26 |result|
    26 |result|
    27 
    27 
    28 result := RegressionTests::IntegerTest runTests.
    28 result := RegressionTests::IntegerTest runTests.
    29 TestResultReporter report:result format:#xml_junit as:'IntegerTest.result.xml'.
    29 TestResultReporter report:result format:#xml_perfPublisher as:'IntegerTest.result.xml'.
    30 
    30 
    31 "/Autoload allSubclassesDo:[:cls |
    31 "/Autoload allSubclassesDo:[:cls |
    32 "/    cls package = 'exept:regression' ifTrue:[
    32 "/    cls package = 'exept:regression' ifTrue:[
    33 "/        Stdout << cls name; cr.
    33 "/        Stdout << cls name; cr.
    34 "/        cls runTests.
    34 "/        cls runTests.