From ee8dc99cffadf1e777695523f3838774648707df Mon Sep 17 00:00:00 2001 From: patthoyts Date: Fri, 30 Oct 2009 11:13:21 +0000 Subject: 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. --- ChangeLog | 7 +++++++ tests/tcltest.test | 3 ++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index b4b29d9..6bc2a22 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2009-10-30 Pat Thoyts + + * tests/tcltest.test: 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. + 2009-10-29 Don Porter * generic/tcl.h: Changed the typedef for the mp_digit type 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} } } -- cgit v0.12