diff options
Diffstat (limited to 'tests/macFCmd.test')
| -rw-r--r-- | tests/macFCmd.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/macFCmd.test b/tests/macFCmd.test index a6c7fa0..f50e7b9 100644 --- a/tests/macFCmd.test +++ b/tests/macFCmd.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: macFCmd.test,v 1.10 2002/07/05 10:38:43 dkf Exp $ +# RCS: @(#) $Id: macFCmd.test,v 1.11 2003/05/14 19:21:24 das Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -31,6 +31,7 @@ if {[catch {file attributes foo.dir -readonly 1}]} { } else { set ::tcltest::testConstraints(fileSharing) 1 set ::tcltest::testConstraints(notFileSharing) 0 + file attributes foo.dir -readonly 0 } file delete -force foo.dir |