diff options
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rwxr-xr-x | tests/tcltest.test | 3 |
2 files changed, 9 insertions, 1 deletions
@@ -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} } } |