summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorstanton <stanton>1998-06-15 19:08:59 (GMT)
committerstanton <stanton>1998-06-15 19:08:59 (GMT)
commit985075957218d62ac8716679d6eabe95351fcd37 (patch)
treede15b55e9efc76e2fc58e2efc5ff78ff645c7335 /tests
parente05b039436c25361af6940bb607b201876a42715 (diff)
downloadtcl-985075957218d62ac8716679d6eabe95351fcd37.zip
tcl-985075957218d62ac8716679d6eabe95351fcd37.tar.gz
tcl-985075957218d62ac8716679d6eabe95351fcd37.tar.bz2
*** empty log message ***
Diffstat (limited to 'tests')
-rw-r--r--tests/winPipe.test13
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