*** empty log message *** draft
authorsr
Fri, 29 Sep 2017 15:39:47 +0200
changeset 349 ae0315df73cb
parent 348 e8c44ab3dbcd
child 350 ed255c6cf368
*** empty log message ***
quickSelfTest/RunUnitTests.st
--- a/quickSelfTest/RunUnitTests.st	Fri Sep 29 14:10:12 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Fri Sep 29 15:39:47 2017 +0200
@@ -36,7 +36,7 @@
      cmdArgs
      unitTestSuite
      eachClassName eachClass
-     result index|
+     result index settingsFilePathName|
 
     doRunSpecificUnitTests := false.
     unitTestSuiteName := 'All Unit Tests'.
@@ -46,7 +46,10 @@
     cmdArgs := Smalltalk commandLineArguments.
     index := cmdArgs indexOf:'--settingsFile'.
     index > 0 ifTrue:[
-	(cmdArgs at:index + 1) asFilename fileIn.
+	settingsFilePathName := cmdArgs at:index + 1.
+	self logInfo:'load settings file: ', settingsFilePathName printString.
+	settingsFilePathName asFilename fileIn.
+	self logInfo:'ParserFlags makeCommand: ', ParserFlags makeCommand printString.
     ].
 
     (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
@@ -76,7 +79,7 @@
 		    logWarning:('corrupted unit test class detected, please fix #%1'
 			bindWith:eachClassName).
 	    ] ifFalse:[
-			eachClassName notNil ifTrue:[
+		eachClassName notNil ifTrue:[
 				eachClass := Smalltalk
 					fileInClass:eachClassName
 					package:'stx:goodies/regression'.