equal
deleted
inserted
replaced
42 suite addTest:(RegressionTests::DelayTest suite). |
42 suite addTest:(RegressionTests::DelayTest suite). |
43 suite addTest:(RegressionTests::DictionaryTest suite). |
43 suite addTest:(RegressionTests::DictionaryTest suite). |
44 suite addTest:(RegressionTests::EnumerationTests suite). |
44 suite addTest:(RegressionTests::EnumerationTests suite). |
45 suite addTest:(RegressionTests::ExceptionTest suite). |
45 suite addTest:(RegressionTests::ExceptionTest suite). |
46 |
46 |
47 result := suite run. |
47 result := suite runBeforeEachDo:[:test | Stdout << ('running ',test printString). Stdout cr ]. |
48 TestResultReporter report:result format:#xml_perfPublisher as:'testresult.xml'. |
48 TestResultReporter report:result format:#xml_perfPublisher as:'testresult.xml'. |
49 |
49 |
50 "/Autoload allSubclassesDo:[:cls | |
50 "/Autoload allSubclassesDo:[:cls | |
51 "/ cls package = 'exept:regression' ifTrue:[ |
51 "/ cls package = 'exept:regression' ifTrue:[ |
52 "/ Stdout << cls name; cr. |
52 "/ Stdout << cls name; cr. |