--- a/quickSelfTest/RunUnitTests.st Tue Oct 10 17:39:58 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st Wed Oct 11 11:21:54 2017 +0200
@@ -70,9 +70,6 @@
self logInfo:'collecting unit test classes to run'.
unitTestSuite := TestSuite named:unitTestSuiteName.
-self logInfo:'1 ', (Smalltalk at: #'stx_goodies_regression') printString.
-self logInfo:'2 ', (Smalltalk at: #'stx_goodies_regression') classNamesAndAttributes printString.
-
(Smalltalk at: #'stx_goodies_regression') classNamesAndAttributes do:[:eachClassNameAndAttributes |
eachClassNameAndAttributes isSymbol ifTrue:[
eachClassName := eachClassNameAndAttributes.
@@ -88,9 +85,23 @@
bindWith:eachClassName).
] ifFalse:[
eachClassName notNil ifTrue:[
- useCompiledUnitTestClasses ifTrue:[
- eachClass := Smalltalk at:eachClassName.
- ] ifFalse:[
+ eachClass := Smalltalk at:eachClassName.
+
+ useCompiledUnitTestClasses ifFalse:[
+ "here we want test the jitter code
+ therfor we file in, exit if the class is already present somwhow"
+ eachClass isNil ifTrue:[
+ self
+ logInfo:('Unit test class "%1" is not present before file in (as expected).'
+ bindWith:eachClassName).
+ ] ifFalse:[
+ self
+ logWarning:('Unit test class "%1" was already present before file in.'
+ bindWith:eachClassName).
+
+ Smalltalk exit.
+ ].
+
eachClass := Smalltalk
fileInClass:eachClassName
package:'stx:goodies/regression'.