equal
deleted
inserted
replaced
93 |fullName| |
93 |fullName| |
94 |
94 |
95 fullName := ('RegressionTests::',className). |
95 fullName := ('RegressionTests::',className). |
96 Stdout showCR:('Loading ',className,'...'). |
96 Stdout showCR:('Loading ',className,'...'). |
97 Smalltalk fileInClass:fullName package:'exept:regression'. |
97 Smalltalk fileInClass:fullName package:'exept:regression'. |
98 suite addTest:(Smalltalk classNamed:fullName) suite. |
98 (Smalltalk classNamed:fullName) isNil ifTrue:[ |
|
99 Stdout showCR:('**** Ouch - missing class: "',fullName,'"'). |
|
100 ] ifFalse:[ |
|
101 suite addTest:(Smalltalk classNamed:fullName) suite. |
|
102 ] |
99 ]. |
103 ]. |
100 |
104 |
101 Stdout showCR:'Running suite...'. |
105 Stdout showCR:'Running suite...'. |
102 result := suite |
106 result := suite |
103 run:TestResultStX new beforeEachDo:[:test | |
107 run:TestResultStX new beforeEachDo:[:test | |