summaryrefslogtreecommitdiffstats
path: root/tests/tcltest.test
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2009-10-30 11:13:21 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2009-10-30 11:13:21 (GMT)
commitee8dc99cffadf1e777695523f3838774648707df (patch)
tree938845a3d786dba4d5de68ecb2a54612813d52a4 /tests/tcltest.test
parent65015eda554d17cf58f79746f53b203e10bc77a2 (diff)
downloadtcl-ee8dc99cffadf1e777695523f3838774648707df.zip
tcl-ee8dc99cffadf1e777695523f3838774648707df.tar.gz
tcl-ee8dc99cffadf1e777695523f3838774648707df.tar.bz2
Cleanup non-writable test directory on Windows.
When creating the notwritabledir we deny the current user access to delete the file. We must grant this right when we cleanup. Required on Windows 7 when the user does not automatically have administrator rights.
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}
}
}