diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-10-09 16:59:13 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-10-09 16:59:13 (GMT) |
| commit | 1a664df87f7f2471bf4c2ad40f19f946f7daae23 (patch) | |
| tree | 462ac9ff9e24984660660306f4b2f624466c0f4f /tests/winPipe.test | |
| parent | 50a13754610c04730f483b8100a8b9c0fccb1e3e (diff) | |
| download | tcl-1a664df87f7f2471bf4c2ad40f19f946f7daae23.zip tcl-1a664df87f7f2471bf4c2ad40f19f946f7daae23.tar.gz tcl-1a664df87f7f2471bf4c2ad40f19f946f7daae23.tar.bz2 | |
Balance the [makeFile/makeDirectory] and [removeFile/removeDirectory] calls (conditional now, so avoids warnings in filter/constraint cases).
Diffstat (limited to 'tests/winPipe.test')
| -rw-r--r-- | tests/winPipe.test | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test index 62cc707..3c051b0 100644 --- a/tests/winPipe.test +++ b/tests/winPipe.test @@ -323,9 +323,8 @@ 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"] + "[makeDirectory test(Dir)Check]/echo(Cmd)Test Args & Batch.bat"] } lappend cmds [list $path(echoArgs2.bat)] } @@ -603,9 +602,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 |