--- a/quickSelfTest/RunUnitTests.st Wed Oct 11 12:48:58 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st Wed Oct 11 12:53:45 2017 +0200
@@ -40,7 +40,7 @@
cmdArgs
unitTestSuite
eachClassName eachClass
- result index settingsFilePathName|
+ result index settingsFilePathName resultFilePathName|
doRunSpecificUnitTests := false.
unitTestSuiteName := 'All Unit Tests'.
@@ -56,6 +56,12 @@
self logInfo:'ParserFlags makeCommand: ', ParserFlags makeCommand printString.
].
+ index := cmdArgs indexOf:'--resultFile'.
+ index > 0 ifTrue:[
+ resultFilePathName := cmdArgs at:index + 1.
+ self logInfo:'load settings file: ', resultFilePathName printString.
+ ].
+
(cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
self logInfo:'configured to run expecco unit tests only'.
doRunSpecificUnitTests := true.
@@ -138,7 +144,7 @@
TestResultReporter
report:result
format:#xml_jUnit
- as:'testresult.xml'.
+ as:resultFilePathName ? 'testresult.xml'.
self logInfo:'summary:'.
self logInfo:('%1 tests' bindWith:result runCount).