quickSelfTest/RunUnitTests.st
changeset 348 e8c44ab3dbcd
parent 347 041a1411366c
child 349 ae0315df73cb
equal deleted inserted replaced
347:041a1411366c 348:e8c44ab3dbcd
    44     corruptedUnitTestClassNames := self corruptedUnitTestClassNames.
    44     corruptedUnitTestClassNames := self corruptedUnitTestClassNames.
    45 
    45 
    46     cmdArgs := Smalltalk commandLineArguments.
    46     cmdArgs := Smalltalk commandLineArguments.
    47     index := cmdArgs indexOf:'--settingsFile'.
    47     index := cmdArgs indexOf:'--settingsFile'.
    48     index > 0 ifTrue:[
    48     index > 0 ifTrue:[
    49 	(cmdArgs at:index + 1) asFilename readIn.
    49 	(cmdArgs at:index + 1) asFilename fileIn.
    50     ].
    50     ].
    51 
    51 
    52     (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
    52     (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
    53 	self logInfo:'configured to run expecco unit tests only'.
    53 	self logInfo:'configured to run expecco unit tests only'.
    54 	doRunSpecificUnitTests := true.
    54 	doRunSpecificUnitTests := true.
    74 	    (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
    74 	    (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
    75 		self
    75 		self
    76 		    logWarning:('corrupted unit test class detected, please fix #%1'
    76 		    logWarning:('corrupted unit test class detected, please fix #%1'
    77 			bindWith:eachClassName).
    77 			bindWith:eachClassName).
    78 	    ] ifFalse:[
    78 	    ] ifFalse:[
    79 Stdout nextPutLine:eachClassName printString.
    79 			eachClassName notNil ifTrue:[
    80 			(eachClassName notNil
       
    81 and:[eachClassName = 'RegressionTests::ScaledDecimalTest']) ifTrue:[
       
    82 				eachClass := Smalltalk
    80 				eachClass := Smalltalk
    83 					fileInClass:eachClassName
    81 					fileInClass:eachClassName
    84 					package:'stx:goodies/regression'.
    82 					package:'stx:goodies/regression'.
    85 
    83 
    86 				eachClass notNil ifTrue:[
    84 				eachClass notNil ifTrue:[