diff options
Diffstat (limited to 'tests/exec.test')
| -rw-r--r-- | tests/exec.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/exec.test b/tests/exec.test index 30bac14..e9a5511 100644 --- a/tests/exec.test +++ b/tests/exec.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: exec.test,v 1.13 2002/07/10 11:56:44 dgp Exp $ +# RCS: @(#) $Id: exec.test,v 1.14 2002/09/02 19:27:15 hobbs Exp $ package require tcltest 2 namespace import -force ::tcltest::* @@ -582,7 +582,9 @@ test exec-17.1 { inheriting standard I/O } {exec} { } {{foobar }} -test exec-18.1 { exec cat deals with weird file names} {exec} { +test exec-18.1 { exec cat deals with weird file names} {exec unixOnly} { + # This is cross-platform, but the cat isn't predictably correct on + # Windows. set f "foo\[\{blah" set path(fooblah) [makeFile {} $f] set fout [open $path(fooblah) w] |