--- a/quickSelfTest/RunUnitTests.st Thu Sep 21 14:34:44 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st Fri Sep 29 11:54:46 2017 +0200
@@ -36,7 +36,7 @@
cmdArgs
unitTestSuite
eachClassName eachClass
- result|
+ result index|
doRunSpecificUnitTests := false.
unitTestSuiteName := 'All Unit Tests'.
@@ -44,6 +44,11 @@
corruptedUnitTestClassNames := self corruptedUnitTestClassNames.
cmdArgs := Smalltalk commandLineArguments.
+ index := cmdArgs indexOf:'--settingsFile'.
+ index > 0 ifTrue:[
+ (cmdArgs at:index + 1) asFilename readIn.
+ ].
+
(cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
self logInfo:'configured to run expecco unit tests only'.
doRunSpecificUnitTests := true.
@@ -67,11 +72,13 @@
(excludedUnitTestClassNames includes:eachClassName) ifFalse:[
(corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
- self
+ self
logWarning:('corrupted unit test class detected, please fix #%1'
- bindWith:eachClassName).
+ bindWith:eachClassName).
] ifFalse:[
- eachClassName notNil ifTrue:[
+Stdout nextPutLine:eachClassName printString.
+ (eachClassName notNil
+and:[eachClassName = 'RegressionTests::ScaledDecimalTest']) ifTrue:[
eachClass := Smalltalk
fileInClass:eachClassName
package:'stx:goodies/regression'.