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.

2 files changed, 9 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index b4b29d9..6bc2a22 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2009-10-30  Pat Thoyts  <patthoyts@users.sourceforge.net>
+
+	* 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  <dgp@users.sourceforge.net>
 
 	* 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}
     }
 }