*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 23 Mar 2016 18:15:52 +0100
changeset 30627c40eee1d2b
parent 305 e3789ecfb821
child 307 d3e214527be4
*** empty log message ***
quickSelfTest/SelfTest.st
     1.1 --- a/quickSelfTest/SelfTest.st	Wed Mar 23 17:30:09 2016 +0100
     1.2 +++ b/quickSelfTest/SelfTest.st	Wed Mar 23 18:15:52 2016 +0100
     1.3 @@ -28,6 +28,7 @@
     1.4  Stdout showCR:'Selftest Started'.
     1.5  !
     1.6  
     1.7 +Smalltalk packagePath addFirst:'../../../..'.
     1.8  Stdout showCR:'Loading sunit...'.
     1.9  Smalltalk loadPackage:'stx:goodies/sunit'.
    1.10  self assert:(TestCase notNil and:[TestCase isLoaded]) message:'[Error]: Missing TestCase class after sunit package load'.
    1.11 @@ -46,18 +47,23 @@
    1.12  Stdout showCR:'Loading regression tests...'.
    1.13  
    1.14  "To add a new test please edit exept_regression>>testCaseNamesWithoutNamespace"
    1.15 -Smalltalk packagePath addFirst:'../../../..'.
    1.16  Smalltalk fileInClass:#'exept_regression' package:'exept:regression'.
    1.17  (Smalltalk at: #'exept_regression') isNil ifTrue:[
    1.18      Stdout showCR:('ERROR: Ouch - missing class: "exept_regression"').
    1.19      Smalltalk exit: 1.
    1.20  ].
    1.21 +exept_regression ensureFullyLoaded.
    1.22 +
    1.23  (Smalltalk at: #'exept_regression') testCaseNamesWithoutNamespace do:[:className |
    1.24      |fullName|
    1.25  
    1.26      fullName := ('RegressionTests::',className).
    1.27 -    Stdout showCR:('Loading ',className,'...').
    1.28 -    Smalltalk fileInClass:fullName package:'exept:regression'.
    1.29 +    Stdout showCR:('  loading ',className,'...').
    1.30 +    Error handle:[:ex |
    1.31 +	Stdout showCR:('**** Ouch - error while loading class: "',className,'"').
    1.32 +    ] do:[
    1.33 +	Smalltalk fileInClass:fullName package:'exept:regression'.
    1.34 +    ].
    1.35      (Smalltalk classNamed:fullName) isNil ifTrue:[
    1.36  	Stdout showCR:('**** Ouch - missing class: "',fullName,'"').
    1.37      ] ifFalse:[