diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-10-31 21:24:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-10-31 21:24:07 (GMT) |
| commit | ef1a52291e38e9136ecfa1ec9effab686091bdf6 (patch) | |
| tree | 0d4da06707dc61d8fd189a4828cba5cdbb4ca7d8 | |
| parent | 0fe5391d10c30890ca1740d54448a97edec4f175 (diff) | |
| download | tcl-ef1a52291e38e9136ecfa1ec9effab686091bdf6.zip tcl-ef1a52291e38e9136ecfa1ec9effab686091bdf6.tar.gz tcl-ef1a52291e38e9136ecfa1ec9effab686091bdf6.tar.bz2 | |
typo fix
| -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_] |