From ef1a52291e38e9136ecfa1ec9effab686091bdf6 Mon Sep 17 00:00:00 2001 From: dgp Date: Sun, 31 Oct 2004 21:24:07 +0000 Subject: typo fix --- tests/io.test | 4 ++-- 1 file 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_] -- cgit v0.12