# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1458753352 -3600
# Node ID 27c40eee1d2b4a3cfa720fd5eaa17f803825bbd3
# Parent  e3789ecfb821fe0b2acfb93eff78d65d4405f048
*** empty log message ***

diff -r e3789ecfb821 -r 27c40eee1d2b quickSelfTest/SelfTest.st
--- a/quickSelfTest/SelfTest.st	Wed Mar 23 17:30:09 2016 +0100
+++ b/quickSelfTest/SelfTest.st	Wed Mar 23 18:15:52 2016 +0100
@@ -28,6 +28,7 @@
 Stdout showCR:'Selftest Started'.
 !
 
+Smalltalk packagePath addFirst:'../../../..'.
 Stdout showCR:'Loading sunit...'.
 Smalltalk loadPackage:'stx:goodies/sunit'.
 self assert:(TestCase notNil and:[TestCase isLoaded]) message:'[Error]: Missing TestCase class after sunit package load'.
@@ -46,18 +47,23 @@
 Stdout showCR:'Loading regression tests...'.
 
 "To add a new test please edit exept_regression>>testCaseNamesWithoutNamespace"
-Smalltalk packagePath addFirst:'../../../..'.
 Smalltalk fileInClass:#'exept_regression' package:'exept:regression'.
 (Smalltalk at: #'exept_regression') isNil ifTrue:[
     Stdout showCR:('ERROR: Ouch - missing class: "exept_regression"').
     Smalltalk exit: 1.
 ].
+exept_regression ensureFullyLoaded.
+
 (Smalltalk at: #'exept_regression') testCaseNamesWithoutNamespace do:[:className |
     |fullName|
 
     fullName := ('RegressionTests::',className).
-    Stdout showCR:('Loading ',className,'...').
-    Smalltalk fileInClass:fullName package:'exept:regression'.
+    Stdout showCR:('  loading ',className,'...').
+    Error handle:[:ex |
+	Stdout showCR:('**** Ouch - error while loading class: "',className,'"').
+    ] do:[
+	Smalltalk fileInClass:fullName package:'exept:regression'.
+    ].
     (Smalltalk classNamed:fullName) isNil ifTrue:[
 	Stdout showCR:('**** Ouch - missing class: "',fullName,'"').
     ] ifFalse:[