diff options
author | dgp <dgp@users.sourceforge.net> | 2018-10-09 18:24:57 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-10-09 18:24:57 (GMT) |
commit | bbdb1f12a0518cfc2a81cd7ec057703ca92e0ffe (patch) | |
tree | 316bd5cb9b9afeefbf982c327c8cdc1c5b067111 /tests/winPipe.test | |
parent | f9a4d9f781eccc5e5e6cc2d850dcb69bc1a38603 (diff) | |
download | tcl-bbdb1f12a0518cfc2a81cd7ec057703ca92e0ffe.zip tcl-bbdb1f12a0518cfc2a81cd7ec057703ca92e0ffe.tar.gz tcl-bbdb1f12a0518cfc2a81cd7ec057703ca92e0ffe.tar.bz2 |
Use the 4 argument form of [makeFile].
Diffstat (limited to 'tests/winPipe.test')
-rw-r--r-- | tests/winPipe.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test index 3c051b0..2f59e96 100644 --- a/tests/winPipe.test +++ b/tests/winPipe.test @@ -323,8 +323,9 @@ proc _testExecArgs {single args} { lappend cmds [list $path(echoArgs.bat)] } else { if {![info exists path(echoArgs2.bat)] || ![file exists $path(echoArgs2.bat)]} { - set path(echoArgs2.bat) [makeFile "@[file native [interpreter]] $path(echoArgs.tcl) %*" \ - "[makeDirectory 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)] } |