From 1a664df87f7f2471bf4c2ad40f19f946f7daae23 Mon Sep 17 00:00:00 2001 From: sebres Date: Tue, 9 Oct 2018 16:59:13 +0000 Subject: Balance the [makeFile/makeDirectory] and [removeFile/removeDirectory] calls (conditional now, so avoids warnings in filter/constraint cases). --- tests/winPipe.test | 9 ++++----- 1 file 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 -- cgit v0.12