*** empty log message ***
authorsr
Fri, 29 Sep 2017 15:39:47 +0200
changeset 349ae0315df73cb
parent 348 e8c44ab3dbcd
child 350 ed255c6cf368
*** empty log message ***
quickSelfTest/RunUnitTests.st
     1.1 --- a/quickSelfTest/RunUnitTests.st	Fri Sep 29 14:10:12 2017 +0200
     1.2 +++ b/quickSelfTest/RunUnitTests.st	Fri Sep 29 15:39:47 2017 +0200
     1.3 @@ -36,7 +36,7 @@
     1.4       cmdArgs
     1.5       unitTestSuite
     1.6       eachClassName eachClass
     1.7 -     result index|
     1.8 +     result index settingsFilePathName|
     1.9  
    1.10      doRunSpecificUnitTests := false.
    1.11      unitTestSuiteName := 'All Unit Tests'.
    1.12 @@ -46,7 +46,10 @@
    1.13      cmdArgs := Smalltalk commandLineArguments.
    1.14      index := cmdArgs indexOf:'--settingsFile'.
    1.15      index > 0 ifTrue:[
    1.16 -	(cmdArgs at:index + 1) asFilename fileIn.
    1.17 +	settingsFilePathName := cmdArgs at:index + 1.
    1.18 +	self logInfo:'load settings file: ', settingsFilePathName printString.
    1.19 +	settingsFilePathName asFilename fileIn.
    1.20 +	self logInfo:'ParserFlags makeCommand: ', ParserFlags makeCommand printString.
    1.21      ].
    1.22  
    1.23      (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
    1.24 @@ -76,7 +79,7 @@
    1.25  		    logWarning:('corrupted unit test class detected, please fix #%1'
    1.26  			bindWith:eachClassName).
    1.27  	    ] ifFalse:[
    1.28 -			eachClassName notNil ifTrue:[
    1.29 +		eachClassName notNil ifTrue:[
    1.30  				eachClass := Smalltalk
    1.31  					fileInClass:eachClassName
    1.32  					package:'stx:goodies/regression'.