summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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