diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-11-03 13:23:08 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-11-03 13:23:08 (GMT) |
| commit | 2ffcfc525bbdf699b316eadff19d2f55139b608a (patch) | |
| tree | 344776407a03ecf8a35306867f3bdf064e0b16dd | |
| parent | 07279ebb64ef3359cd341e8ef7f8f99ea36dedd1 (diff) | |
| download | tcl-2ffcfc525bbdf699b316eadff19d2f55139b608a.zip tcl-2ffcfc525bbdf699b316eadff19d2f55139b608a.tar.gz tcl-2ffcfc525bbdf699b316eadff19d2f55139b608a.tar.bz2 | |
test constraint housekeeping
| -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 3d0a9e0..fe50043 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.test @@ -50,7 +50,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*] @@ -500,7 +500,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 |