From: <mie...@us...> - 2014-02-09 19:37:20
|
Revision: 9908 http://sourceforge.net/p/oorexx/code-0/9908 Author: miesfeld Date: 2014-02-09 19:37:15 +0000 (Sun, 09 Feb 2014) Log Message: ----------- ooTest suite - add a comment explaining why some tests may fail in the special folders test group Modified Paths: -------------- test/trunk/ooRexx/extensions/platform/windows/ole/SpecialFolders.testGroup test/trunk/worker.rex Modified: test/trunk/ooRexx/extensions/platform/windows/ole/SpecialFolders.testGroup =================================================================== --- test/trunk/ooRexx/extensions/platform/windows/ole/SpecialFolders.testGroup 2014-02-09 19:31:38 UTC (rev 9907) +++ test/trunk/ooRexx/extensions/platform/windows/ole/SpecialFolders.testGroup 2014-02-09 19:37:15 UTC (rev 9908) @@ -60,6 +60,10 @@ NOTE: If the user has changed the name of a "special folder" the following line in each testMethod may fail self~assertTrue(objFolderItem~name~caselessPos('....') > 0) + Note that in addition, many of the tests assume an english language version of Windows. Some of th + special folder names are different in other language versions of Windows. In that case the test + fails on the same line as above. This is to be expected. + This is being developed on a system where none of the special folder names have been changed and is meant to test that the correct Hex value is being used during the development */ Modified: test/trunk/worker.rex =================================================================== --- test/trunk/worker.rex 2014-02-09 19:31:38 UTC (rev 9907) +++ test/trunk/worker.rex 2014-02-09 19:37:15 UTC (rev 9908) @@ -126,11 +126,20 @@ overallPhase~done testResult~addEvent(overallPhase) + currenMonitor = .output~destination(.stream~new("ooTest.log")~~command("open write")) + testResult~print("ooTest Framework - Automated Test of the ooRexx Interpreter") if .testOpts~debug then j = printDebug(containers, testResult, cl) else if .testOpts~printOptions then j = printOptions(.true) + .output~destination + + testResult~print("ooTest Framework - Automated Test of the ooRexx Interpreter") + + if .testOpts~debug then j = printDebug(containers, testResult, cl) + else if .testOpts~printOptions then j = printOptions(.true) + if cl~waitAtCompletion then do say say "The automated test run is finished, hit enter to continue" @@ -187,6 +196,8 @@ ::attribute buildFirst set private ::attribute forceBuild get -- B ::attribute forceBuild set private +::attribute logFile get -- l +::attribute logFile set private ::attribute noTests get -- n ::attribute noTests set private ::attribute waitAtCompletion get -- w @@ -539,6 +550,10 @@ j = self~addMultiWordOpt(i, '-I') end + when word == '-L' then do + testOpts~logFileAppend = .true + end + when word == '-n' then do testOpts~noTests = .true end @@ -1052,6 +1067,8 @@ testOpts~fileList = .nil testOpts~filesWithPattern = .nil testOpts~forceBuild = .false + testOpts~logFile = .nil + testOpts~logFileAppend = .false testOpts~noOptionsFile = .false testOpts~noTests = .false testOpts~optionsFile = .nil @@ -1077,6 +1094,8 @@ optsTable[fileList ] = "filelist" optsTable[filesWithPattern ] = "fileswithpattern" optsTable[forceBuild ] = "boolean" + optsTable[logFile ] = "string" + optsTable[logFileAppend ] = "boolean" optsTable[noOptionsFile ] = "invalid" optsTable[noTests ] = "boolean" optsTable[optionsFile ] = "invalid" @@ -1180,6 +1199,8 @@ say ' indicates all test types' say say ' Output control:' + say ' -l -DlogFile=FILE Put test results in log file FILE' + say ' -L -DlogFileAppend=bool Append test results to log file' say ' -s -DshowProgress=bool Show test group progress' say ' -S -DshowTestcases=bool Show test case progress' say ' -u -DsuppressTestcaseTicks=bool Do not show ticks during test execution' |