diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-10-09 18:27:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-10-09 18:27:57 (GMT) |
| commit | 9e61a85e86369a59a4ea4fccf7c5ef7b906687f2 (patch) | |
| tree | 3815e0ac8dd6ad6c8bbbd47f94083e331079fdc6 | |
| parent | eec0f0f9da09e4ffe2e4daa880ef23835e3d48c0 (diff) | |
| parent | bbdb1f12a0518cfc2a81cd7ec057703ca92e0ffe (diff) | |
| download | tcl-9e61a85e86369a59a4ea4fccf7c5ef7b906687f2.zip tcl-9e61a85e86369a59a4ea4fccf7c5ef7b906687f2.tar.gz tcl-9e61a85e86369a59a4ea4fccf7c5ef7b906687f2.tar.bz2 | |
merge 8.6
| -rw-r--r-- | tests/winPipe.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test index 62cc707..2f59e96 100644 --- a/tests/winPipe.test +++ b/tests/winPipe.test @@ -323,9 +323,9 @@ proc _testExecArgs {single args} { lappend cmds [list $path(echoArgs.bat)] } else { if {![info exists path(echoArgs2.bat)] || ![file exists $path(echoArgs2.bat)]} { - file mkdir [file join [temporaryDirectory] test(Dir)Check] - set path(echoArgs2.bat) [makeFile "@[file native [interpreter]] $path(echoArgs.tcl) %*" \ - "test(Dir)Check/echo(Cmd)Test Args & Batch.bat"] + set path(echoArgs2.bat) [makeFile \ + "@[file native [interpreter]] $path(echoArgs.tcl) %*" \ + "echo(Cmd)Test Args & Batch.bat" [makeDirectory test(Dir)Check]] } lappend cmds [list $path(echoArgs2.bat)] } @@ -603,9 +603,9 @@ removeFile more removeFile stdout removeFile stderr removeFile nothing -removeFile echoArgs.tcl -removeFile echoArgs.bat -file delete -force [file join [temporaryDirectory] test(Dir)Check] +if {[info exists path(echoArgs.tcl)]} { removeFile echoArgs.tcl } +if {[info exists path(echoArgs.bat)]} { removeFile echoArgs.bat } +if {[info exists path(echoArgs2.bat)]} { removeDirectory test(Dir)Check } ::tcltest::cleanupTests return |