#BUGFIX by sr
authorsr
Wed, 11 Oct 2017 11:21:54 +0200
changeset 407 16108b5c7906
parent 403 1e88f9fae94d
child 408 981f31dd0a21
#BUGFIX by sr class: RunUnitTests class changed: #runWithCompiledUnitTestClasses:
quickSelfTest/RunUnitTests.st
--- 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'.