diff options
author | stanton <stanton@noemail.net> | 1998-06-15 19:08:59 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1998-06-15 19:08:59 (GMT) |
commit | e199aa0437807c3cb50f6399ff04b6559f3723da (patch) | |
tree | de15b55e9efc76e2fc58e2efc5ff78ff645c7335 /tests/winPipe.test | |
parent | a38d955d5629f3d460b0d34f3b90b702d9d31033 (diff) | |
download | tcl-e199aa0437807c3cb50f6399ff04b6559f3723da.zip tcl-e199aa0437807c3cb50f6399ff04b6559f3723da.tar.gz tcl-e199aa0437807c3cb50f6399ff04b6559f3723da.tar.bz2 |
*** empty log message ***
FossilOrigin-Name: a0565a7ccdf4e54bb53059fa2cc2d5c7d86ab4c1
Diffstat (limited to 'tests/winPipe.test')
-rw-r--r-- | tests/winPipe.test | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test index 404251f..f3fc757 100644 --- a/tests/winPipe.test +++ b/tests/winPipe.test @@ -347,6 +347,17 @@ test winpipe-3.3 {TclpCreateTempFile: TEMP specifies non-existent directory} { set x {} } {} +makeFile { + puts "[list $argv0 $argv]" +} echoArgs.tcl + +test winpipe-4.1 {BuildCommandLine: null arguments} { + exec $tcltest echoArgs.tcl foo "" bar +} {echoArgs.tcl {foo {} bar}} +test winpipe-4.1 {BuildCommandLine: null arguments} { + exec $tcltest echoArgs.tcl foo \" bar +} {echoArgs.tcl {foo {"} bar}} + # restore old values fro env(TMP) and env(TEMP) if {[catch {set env(TMP) $env_tmp}]} { @@ -356,4 +367,4 @@ if {[catch {set env(TEMP) $env_temp}]} { unset $env(TEMP) } -file delete big little stdout stderr nothing +file delete big little stdout stderr nothing dummy.tcl |