diff options
| -rw-r--r-- | tests/winFCmd.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test index 9b5e67e..ac5ae4e 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.test @@ -48,7 +48,7 @@ proc contents {file} { proc cleanupRecurse {args} { # Assumes no loops via links! # Need to change permissions BEFORE deletion - testchmod 0o777 {*}$args + catch {testchmod 0o777 {*}$args} foreach victim $args { if {[file isdirectory $victim]} { cleanupRecurse {*}[glob -nocomplain -directory $victim td* tf* Test*] @@ -454,7 +454,7 @@ test winFCmd-2.11 {TclpCopyFile: CopyFile succeeds} -setup { } -result {tf1 tf1} test winFCmd-2.12 {TclpCopyFile: CopyFile succeeds} -setup { cleanup -} -constraints {win testfile} -body { +} -constraints {win testfile testchmod} -body { createfile tf1 tf1 file attribute tf1 -readonly 1 testfile cp tf1 tf2 |