diff options
| -rw-r--r-- | tests/io.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/io.test b/tests/io.test index 75b32b0..56be76b 100644 --- a/tests/io.test +++ b/tests/io.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: io.test,v 1.62 2004/10/31 18:39:00 dkf Exp $ +# RCS: @(#) $Id: io.test,v 1.63 2004/10/31 21:24:07 dgp Exp $ if {[catch {package require tcltest 2}]} { puts stderr "Skipping tests in [info script]. tcltest 2 required." @@ -5273,7 +5273,7 @@ test io-40.15 {POSIX open access modes: RDWR} { lappend x [viewFile test3] } {zzy abzzy} testConstraint makeFileInHome [expr {![file exists ~/_test_] && [file writable ~]}] -test io-40.16 {tilde substitution in open} -constraint makeFileInHome -setup { +test io-40.16 {tilde substitution in open} -constraints makeFileInHome -setup { makeFile {Some text} _test_ ~ } -body { file exists [file join $env(HOME) _test_] |