summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2009-11-03 23:20:48 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2009-11-03 23:20:48 (GMT)
commita50259562aae340b17e22234cecc19ea8f54cff9 (patch)
tree8c8b5ed6d64a1c63c7037f730150a33ac23d8b89
parentadd57d88c11c03bdc4bace6d4b47fb64f35c2098 (diff)
downloadtcl-a50259562aae340b17e22234cecc19ea8f54cff9.zip
tcl-a50259562aae340b17e22234cecc19ea8f54cff9.tar.gz
tcl-a50259562aae340b17e22234cecc19ea8f54cff9.tar.bz2
Backported permissions fix for Windows 7 to cleanup test directory.
-rw-r--r--ChangeLog4
-rwxr-xr-xtests/tcltest.test3
2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 471bb25..bedcf33 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-03 Pat Thoyts <patthoyts@users.sourceforge.net>
+
+ * tests/tcltest.test: Backport permissions fix for Win7.
+
2009-11-03 Don Porter <dgp@users.sourceforge.net>
*** 8.5.8 TAGGED FOR RELEASE ***
diff --git a/tests/tcltest.test b/tests/tcltest.test
index 637612d..66d64f2 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.55.4.1 2009/11/03 23:20:48 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}
}
}