diff options
| author | vincentdarley <vincentdarley> | 2006-03-18 18:15:10 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2006-03-18 18:15:10 (GMT) |
| commit | a1d41e6ab15a8040828a7984500a360d0b483f9d (patch) | |
| tree | 5d117164808bc7ff934146c9e50d11f2fd5df143 /tests/winFCmd.test | |
| parent | 0724ad11901b1b93fd79ec948eb4997cbbee73c3 (diff) | |
| download | tcl-a1d41e6ab15a8040828a7984500a360d0b483f9d.zip tcl-a1d41e6ab15a8040828a7984500a360d0b483f9d.tar.gz tcl-a1d41e6ab15a8040828a7984500a360d0b483f9d.tar.bz2 | |
fix to file writeable on windows
Diffstat (limited to 'tests/winFCmd.test')
| -rw-r--r-- | tests/winFCmd.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test index 51c0726..3ffaed2 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.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: winFCmd.test,v 1.38 2005/05/10 18:35:25 kennykb Exp $ +# RCS: @(#) $Id: winFCmd.test,v 1.39 2006/03/18 18:15:13 vincentdarley Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -703,11 +703,11 @@ test winFCmd-7.10 {TraverseWinTree: can't read directory: handle == INVALID} \ test winFCmd-7.11 {TraverseWinTree: call TraversalCopy: DOTREE_PRED} {win} { cleanup file mkdir td1 - testchmod 000 td1 createfile td1/tf1 tf1 + testchmod 000 td1 testfile cpdir td1 td2 list [file exists td2] [file writable td2] -} {1 0} +} {1 1} test winFCmd-7.12 {TraverseWinTree: call TraversalDelete: DOTREE_PRED} {win} { cleanup file mkdir td1 @@ -759,11 +759,11 @@ test winFCmd-7.18 {TraverseWinTree: recurse on files: several files and dir} \ test winFCmd-7.19 {TraverseWinTree: call TraversalCopy: DOTREE_POSTD} {win} { cleanup file mkdir td1 - testchmod 000 td1 createfile td1/tf1 tf1 + testchmod 000 td1 testfile cpdir td1 td2 list [file exists td2] [file writable td2] -} {1 0} +} {1 1} test winFCmd-7.20 {TraverseWinTree: call TraversalDelete: DOTREE_POSTD} \ {win} { cleanup |