diff options
| author | vincentdarley <vincentdarley> | 2003-04-11 15:59:49 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-04-11 15:59:49 (GMT) |
| commit | a5499a51a90ae1c06f3f39ee05c4b42185e0f28c (patch) | |
| tree | 324d5cddf5f2dfe379c3cf1427347351d8d683a5 /tests/ioUtil.test | |
| parent | 3c51da6d9db3a5e20f2e38f667ef5c0791b2e88d (diff) | |
| download | tcl-a5499a51a90ae1c06f3f39ee05c4b42185e0f28c.zip tcl-a5499a51a90ae1c06f3f39ee05c4b42185e0f28c.tar.gz tcl-a5499a51a90ae1c06f3f39ee05c4b42185e0f28c.tar.bz2 | |
fix 5 small filesystem bugs, and some typos
Diffstat (limited to 'tests/ioUtil.test')
| -rw-r--r-- | tests/ioUtil.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/ioUtil.test b/tests/ioUtil.test index 812e3e4..273f47e 100644 --- a/tests/ioUtil.test +++ b/tests/ioUtil.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: ioUtil.test,v 1.13 2002/07/18 09:40:24 vincentdarley Exp $ +# RCS: @(#) $Id: ioUtil.test,v 1.14 2003/04/11 16:00:00 vincentdarley Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -113,14 +113,14 @@ test ioUtil-1.8 {TclStatDeleteProc: Verify that all procs have been deleted.} {t eval $unsetScript -test ioUtil-1.1 {TclAccess: Check that none of the test procs are there.} { +test ioUtil-1.9 {TclAccess: Check that none of the test procs are there.} { catch {file exists testAccess1%.fil} err1 catch {file exists testAccess2%.fil} err2 catch {file exists testAccess3%.fil} err3 list $err1 $err2 $err3 } {0 0 0} -test ioUtil-1.2 {TclAccessInsertProc: Insert the 3 test TclAccess_ procedures.} {testaccessproc} { +test ioUtil-1.10 {TclAccessInsertProc: Insert the 3 test TclAccess_ procedures.} {testaccessproc} { catch {testaccessproc insert TclpAccess} err1 testaccessproc insert TestAccessProc1 testaccessproc insert TestAccessProc2 |