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.


FossilOrigin-Name: c9d28e15b137aef21401c3049f3e50ae028a2358

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