summaryrefslogtreecommitdiffstats
path: root/tests/tcltest.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-xtests/tcltest.test3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test
index 637612d..f235fac 100755
--- a/tests/tcltest.test
+++ b/tests/tcltest.test
@@ -6,7 +6,7 @@
# Copyright (c) 2000 by Ajuba Solutions
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.test,v 1.55 2007/01/18 22:09:44 dkf Exp $
+# RCS: @(#) $Id: tcltest.test,v 1.56 2009/10/30 11:13:21 patthoyts Exp $
# Note that there are several places where the value of
# tcltest::currentFailure is stored/reset in the -setup/-cleanup
@@ -724,6 +724,7 @@ switch $::tcl_platform(platform) {
file attributes $notWriteableDir -permissions 777
}
default {
+ catch {testchmod 777 $notWriteableDir}
catch {file attributes $notWriteableDir -readonly 0}
}
}