*** empty log message ***
authorsr
Fri, 29 Sep 2017 11:54:46 +0200
changeset 347041a1411366c
parent 346 e59d3b6f2391
child 348 e8c44ab3dbcd
*** empty log message ***
quickSelfTest/RunUnitTests.st
     1.1 --- a/quickSelfTest/RunUnitTests.st	Thu Sep 21 14:34:44 2017 +0200
     1.2 +++ b/quickSelfTest/RunUnitTests.st	Fri Sep 29 11:54:46 2017 +0200
     1.3 @@ -36,7 +36,7 @@
     1.4       cmdArgs
     1.5       unitTestSuite
     1.6       eachClassName eachClass
     1.7 -     result|
     1.8 +     result index|
     1.9  
    1.10      doRunSpecificUnitTests := false.
    1.11      unitTestSuiteName := 'All Unit Tests'.
    1.12 @@ -44,6 +44,11 @@
    1.13      corruptedUnitTestClassNames := self corruptedUnitTestClassNames.
    1.14  
    1.15      cmdArgs := Smalltalk commandLineArguments.
    1.16 +    index := cmdArgs indexOf:'--settingsFile'.
    1.17 +    index > 0 ifTrue:[
    1.18 +	(cmdArgs at:index + 1) asFilename readIn.
    1.19 +    ].
    1.20 +
    1.21      (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
    1.22  	self logInfo:'configured to run expecco unit tests only'.
    1.23  	doRunSpecificUnitTests := true.
    1.24 @@ -67,11 +72,13 @@
    1.25  
    1.26  	(excludedUnitTestClassNames includes:eachClassName) ifFalse:[
    1.27  	    (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
    1.28 -	        self
    1.29 +		self
    1.30  		    logWarning:('corrupted unit test class detected, please fix #%1'
    1.31 -		        bindWith:eachClassName).
    1.32 +			bindWith:eachClassName).
    1.33  	    ] ifFalse:[
    1.34 -			eachClassName notNil ifTrue:[
    1.35 +Stdout nextPutLine:eachClassName printString.
    1.36 +			(eachClassName notNil
    1.37 +and:[eachClassName = 'RegressionTests::ScaledDecimalTest']) ifTrue:[
    1.38  				eachClass := Smalltalk
    1.39  					fileInClass:eachClassName
    1.40  					package:'stx:goodies/regression'.