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
