equal
deleted
inserted
replaced
31 |
31 |
32 Stdout <<'Loading regression tests...'; cr. |
32 Stdout <<'Loading regression tests...'; cr. |
33 Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc'). |
33 Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc'). |
34 ! |
34 ! |
35 |
35 |
36 |result| |
36 |suite result| |
37 |
37 |
38 result := RegressionTests::IntegerTest runTests. |
38 suite := TestSuite named:'SelfTest'. |
|
39 suite addTest:(RegressionTests::IntegerTest suite). |
|
40 suite addTest:(RegressionTests::CollectionTests suite). |
|
41 |
|
42 result := suite run. |
39 TestResultReporter report:result format:#xml_perfPublisher as:'testresult.xml'. |
43 TestResultReporter report:result format:#xml_perfPublisher as:'testresult.xml'. |
40 |
44 |
41 "/Autoload allSubclassesDo:[:cls | |
45 "/Autoload allSubclassesDo:[:cls | |
42 "/ cls package = 'exept:regression' ifTrue:[ |
46 "/ cls package = 'exept:regression' ifTrue:[ |
43 "/ Stdout << cls name; cr. |
47 "/ Stdout << cls name; cr. |