diff options
| author | dgp@users.sourceforge.net <dgp> | 2006-03-20 14:24:09 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2006-03-20 14:24:09 (GMT) |
| commit | e3286bc418c9fc40d746c6c5d3a592a18a858cf7 (patch) | |
| tree | 97b891176ba6efaf7f2ec5f06c082c4e2b09a5dd /tests/unixFCmd.test | |
| parent | 9aeabf9ff8a870095c564fe74a03ee4096a86c31 (diff) | |
| download | tcl-e3286bc418c9fc40d746c6c5d3a592a18a858cf7.zip tcl-e3286bc418c9fc40d746c6c5d3a592a18a858cf7.tar.gz tcl-e3286bc418c9fc40d746c6c5d3a592a18a858cf7.tar.bz2 | |
correct [makeFile] syntax
Diffstat (limited to 'tests/unixFCmd.test')
| -rw-r--r-- | tests/unixFCmd.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test index 0d77153..2cf71f1 100644 --- a/tests/unixFCmd.test +++ b/tests/unixFCmd.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: unixFCmd.test,v 1.22 2006/03/20 11:39:03 dkf Exp $ +# RCS: @(#) $Id: unixFCmd.test,v 1.23 2006/03/20 14:24:09 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -333,12 +333,12 @@ test unixFCmd-18.1 {Unix pwd} {nonPortable unix notRoot} { # check whether -readonly attribute is supported testConstraint readonlyAttr 0 if {$tcl_platform(platform) == "unix"} { - set f [makeFile "whatever"] + set f [makeFile "whatever" probe] catch { file attributes $f -readonly testConstraint readonlyAttr 1 } - removeFile $f + removeFile probe } test unixFCmd-19.1 {GetReadOnlyAttribute - file not found} {unix notRoot readonlyAttr} { |