Artifact
fc95517f2f9845382c6a2a29a10ff5a339a329b5:
Attachment "exec.test.patch" to
ticket [554068ffff]
added by
vincentdarley
2002-06-14 18:46:31.
Index: exec.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/exec.test,v
retrieving revision 1.9
diff -b -u -r1.9 exec.test
--- exec.test 23 Nov 2001 01:26:02 -0000 1.9
+++ exec.test 14 Jun 2002 11:43:37 -0000
@@ -586,6 +586,16 @@
} {{foobar
}}
+test exec-18.1 { exec cat deals with weird file names} {execCommandExists} {
+ set f "foo\[\{blah"
+ set fout [open $f w]
+ puts $fout "contents"
+ close $fout
+ set res [list [catch {exec cat $f} msg] $msg]
+ file delete $f
+ set res
+} {0 contents}
+
# cleanup
file delete script gorp.file gorp.file2
file delete echo cat wc sh sleep exit