diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-10-09 17:56:34 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-10-09 17:56:34 (GMT) |
| commit | fed4d43bd565b34a6cf5cc7da2484f7db6fe9c42 (patch) | |
| tree | 2b5a62e652c57a1214ff8ceb7601922498cd070c /tests | |
| parent | 77282aad9667ef12c78a6a040b17dbd6d27681c6 (diff) | |
| parent | f9a4d9f781eccc5e5e6cc2d850dcb69bc1a38603 (diff) | |
| download | tcl-fed4d43bd565b34a6cf5cc7da2484f7db6fe9c42.zip tcl-fed4d43bd565b34a6cf5cc7da2484f7db6fe9c42.tar.gz tcl-fed4d43bd565b34a6cf5cc7da2484f7db6fe9c42.tar.bz2 | |
Balance the [makeFile/makeDirectory] and [removeFile/removeDirectory] calls (conditional now, so avoids warnings in filter/constraint cases).
Diffstat (limited to 'tests')
| -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 5dab3b7..9954424 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 |