From 2ffcfc525bbdf699b316eadff19d2f55139b608a Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 3 Nov 2023 13:23:08 +0000
Subject: test constraint housekeeping

---
 tests/winFCmd.test | 4 ++--
 1 file 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
-- 
cgit v0.12