equal
deleted
inserted
replaced
44 suite := TestSuite named:'SelfTest'. |
44 suite := TestSuite named:'SelfTest'. |
45 |
45 |
46 Stdout showCR:'Loading regression tests...'. |
46 Stdout showCR:'Loading regression tests...'. |
47 |
47 |
48 "To add a new test please edit exept_regression>>testCaseNamesWithoutNamespace" |
48 "To add a new test please edit exept_regression>>testCaseNamesWithoutNamespace" |
|
49 Smalltalk packagePath addFirst:'../../../..'. |
49 Smalltalk fileInClass:#'exept_regression' package:'exept:regression'. |
50 Smalltalk fileInClass:#'exept_regression' package:'exept:regression'. |
50 (Smalltalk at: #'exept_regression') isNil ifTrue:[ |
51 (Smalltalk at: #'exept_regression') isNil ifTrue:[ |
51 Stdout showCR:('ERROR: Ouch - missing class: "exept_regression"'). |
52 Stdout showCR:('ERROR: Ouch - missing class: "exept_regression"'). |
52 Smalltalk exit: 1. |
53 Smalltalk exit: 1. |
53 ]. |
54 ]. |