--- 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'.