diff -r 3caf6bff52dc -r 1e88f9fae94d quickSelfTest/RunUnitTests.st --- a/quickSelfTest/RunUnitTests.st Tue Oct 10 16:27:57 2017 +0200 +++ b/quickSelfTest/RunUnitTests.st Tue Oct 10 17:39:58 2017 +0200 @@ -88,15 +88,22 @@ bindWith:eachClassName). ] ifFalse:[ eachClassName notNil ifTrue:[ -"/ check if loaded - eachClass := Smalltalk - fileInClass:eachClassName - package:'stx:goodies/regression'. + useCompiledUnitTestClasses ifTrue:[ + eachClass := Smalltalk at:eachClassName. + ] ifFalse:[ + eachClass := Smalltalk + fileInClass:eachClassName + package:'stx:goodies/regression'. + ]. - eachClass notNil ifTrue:[ - eachClass isTestCaseLike ifTrue:[ - unitTestSuite addTest:eachClass suite. - ]. + eachClass notNil ifTrue:[ + eachClass isTestCaseLike ifTrue:[ + unitTestSuite addTest:eachClass suite. + ]. + ] ifFalse:[ + self + logWarning:('unit test class "%1" is not loaded.' + bindWith:eachClassName). ]. ]. ].