diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-10-09 17:55:20 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-10-09 17:55:20 (GMT) |
| commit | f9a4d9f781eccc5e5e6cc2d850dcb69bc1a38603 (patch) | |
| tree | 3c211951b4d82eb3528b74269e6a06acafb75b7c | |
| parent | cc4dae5c0f418d304a44bb10c87c624b478b6441 (diff) | |
| parent | 1a664df87f7f2471bf4c2ad40f19f946f7daae23 (diff) | |
| download | tcl-f9a4d9f781eccc5e5e6cc2d850dcb69bc1a38603.zip tcl-f9a4d9f781eccc5e5e6cc2d850dcb69bc1a38603.tar.gz tcl-f9a4d9f781eccc5e5e6cc2d850dcb69bc1a38603.tar.bz2 | |
Balance the [makeFile/makeDirectory] and [removeFile/removeDirectory] calls (conditional now, so avoids warnings in filter/constraint cases).
| -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 |