From 985075957218d62ac8716679d6eabe95351fcd37 Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Mon, 15 Jun 1998 19:08:59 +0000
Subject: *** empty log message ***

---
 tests/winPipe.test | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

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
-- 
cgit v0.12