equal
deleted
inserted
replaced
36 |suite result| |
36 |suite result| |
37 |
37 |
38 suite := TestSuite named:'SelfTest'. |
38 suite := TestSuite named:'SelfTest'. |
39 suite addTest:(RegressionTests::IntegerTest suite). |
39 suite addTest:(RegressionTests::IntegerTest suite). |
40 suite addTest:(RegressionTests::CollectionTests suite). |
40 suite addTest:(RegressionTests::CollectionTests suite). |
|
41 suite addTest:(RegressionTests::CompilerTest suite). |
|
42 suite addTest:(RegressionTests::DelayTest suite). |
|
43 suite addTest:(RegressionTests::DictionaryTest suite). |
|
44 suite addTest:(RegressionTests::EnumerationTests suite). |
|
45 suite addTest:(RegressionTests::ExceptionTests suite). |
41 |
46 |
42 result := suite run. |
47 result := suite run. |
43 TestResultReporter report:result format:#xml_perfPublisher as:'testresult.xml'. |
48 TestResultReporter report:result format:#xml_perfPublisher as:'testresult.xml'. |
44 |
49 |
45 "/Autoload allSubclassesDo:[:cls | |
50 "/Autoload allSubclassesDo:[:cls | |