From a50259562aae340b17e22234cecc19ea8f54cff9 Mon Sep 17 00:00:00 2001 From: patthoyts Date: Tue, 3 Nov 2009 23:20:48 +0000 Subject: Backported permissions fix for Windows 7 to cleanup test directory. --- ChangeLog | 4 ++++ tests/tcltest.test | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 471bb25..bedcf33 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2009-11-03 Pat Thoyts + + * tests/tcltest.test: Backport permissions fix for Win7. + 2009-11-03 Don Porter *** 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} } } -- cgit v0.12