*** empty log message *** draft
authorsr
Fri, 29 Sep 2017 11:54:46 +0200
changeset 347 041a1411366c
parent 346 e59d3b6f2391
child 348 e8c44ab3dbcd
*** empty log message ***
quickSelfTest/RunUnitTests.st
--- 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'.