diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-11-03 13:23:37 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-11-03 13:23:37 (GMT) |
| commit | f776d13f5ea4900b1050f090cf1d84bc36e6a1d3 (patch) | |
| tree | 04dd7caba1aaba7b0a46746c51138f0f668a809e | |
| parent | 69fb959ca642175270a38faf7bfab40da094a9b7 (diff) | |
| parent | 2ffcfc525bbdf699b316eadff19d2f55139b608a (diff) | |
| download | tcl-f776d13f5ea4900b1050f090cf1d84bc36e6a1d3.zip tcl-f776d13f5ea4900b1050f090cf1d84bc36e6a1d3.tar.gz tcl-f776d13f5ea4900b1050f090cf1d84bc36e6a1d3.tar.bz2 | |
merge 8.7
| -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 |