diff options
| author | stanton <stanton> | 1998-06-15 19:08:59 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-06-15 19:08:59 (GMT) |
| commit | 985075957218d62ac8716679d6eabe95351fcd37 (patch) | |
| tree | de15b55e9efc76e2fc58e2efc5ff78ff645c7335 /tests | |
| parent | e05b039436c25361af6940bb607b201876a42715 (diff) | |
| download | tcl-985075957218d62ac8716679d6eabe95351fcd37.zip tcl-985075957218d62ac8716679d6eabe95351fcd37.tar.gz tcl-985075957218d62ac8716679d6eabe95351fcd37.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'tests')
| -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 |