Backported permissions fix for Windows 7 to cleanup test directory.

1 files changed, 2 insertions, 1 deletions

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}
     }
 }