quickSelfTest/RunUnitTests.st
changeset 411 ae00d407930e
parent 410 08b15d0e13a6
child 413 77f31ca4ab2a
--- a/quickSelfTest/RunUnitTests.st	Wed Oct 11 11:42:16 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Wed Oct 11 11:44:28 2017 +0200
@@ -96,16 +96,12 @@
 		    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:[
+			eachClass notNil ifTrue:[
 			    self
 				logWarning:('Unit test class "%1" was already present before file in.'
 				    bindWith:eachClassName).
 
-			    Smalltalk exit.
+			    Smalltalk exit:1.
 			].
 
 			eachClass := Smalltalk