summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/winPipe.test15
1 files changed, 9 insertions, 6 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test
index 19627bb..75027e6 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: winPipe.test,v 1.24 2004/02/01 23:37:52 davygrvy Exp $
+# RCS: @(#) $Id: winPipe.test,v 1.25 2004/02/02 01:34:54 davygrvy Exp $
package require tcltest
namespace import -force ::tcltest::*
@@ -344,19 +344,19 @@ test winpipe-7.8 {BuildCommandLine: dbl quote quoting #6} {pcOnly exec} {
} {\"hello\" \"\"hello\"\" \"\"\"hello\"\"\" \"\\\"hello\\\"\" "he llo" "he \" llo"}
test winpipe-7.9 {BuildCommandLine: N backslashes followed a quote rule #1} {pcOnly exec} {
exec $env(COMSPEC) /c echo foo \\ bar
-} "foo \\ bar"
+} {foo \ bar}
test winpipe-7.10 {BuildCommandLine: N backslashes followed a quote rule #2} {pcOnly exec} {
exec $env(COMSPEC) /c echo foo \\\\ bar
-} "foo \\\\ bar"
+} {foo \\ bar}
test winpipe-7.11 {BuildCommandLine: N backslashes followed a quote rule #3} {pcOnly exec} {
exec $env(COMSPEC) /c echo foo \\\ \\ bar
-} "foo \"\\\ \\\\\" bar"
+} {foo "\ \\" bar}
test winpipe-7.12 {BuildCommandLine: N backslashes followed a quote rule #4} {pcOnly exec} {
exec $env(COMSPEC) /c echo foo \\\ \\\\ bar
-} "foo \"\\\ \\\\\\\\\" bar"
+} {foo "\ \\\\" bar}
test winpipe-7.13 {BuildCommandLine: N backslashes followed a quote rule #5} {pcOnly exec} {
exec $env(COMSPEC) /c echo foo \\\ \\\\\\ bar
-} "foo \"\\\ \\\\\\\\\\\\\" bar"
+} {foo "\ \\\\\\" bar}
test winpipe-7.14 {BuildCommandLine: special chars #4} {pcOnly exec} {
exec $env(COMSPEC) /c echo foo \{ bar
} "foo \{ bar"
@@ -411,6 +411,9 @@ test winpipe-8.14 {BuildCommandLine/parse_cmdline pass-thru: special chars #1} {
test winpipe-8.15 {BuildCommandLine/parse_cmdline pass-thru: special chars #2} {pcOnly exec} {
exec [interpreter] $path(echoArgs.tcl) foo \} bar
} [list $path(echoArgs.tcl) [list foo \} bar]]
+test winpipe-8.16 {ensure parse_cmdline isn't doing wildcard replacement} {pcOnly exec} {
+ exec [interpreter] $path(echoArgs.tcl) foo * makefile.?c bar
+} [list $path(echoArgs.tcl) [list foo * makefile.?c bar]]