diff options
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | tests/fCmd.test | 4 |
2 files changed, 9 insertions, 2 deletions
@@ -1,3 +1,10 @@ +2009-11-23 Kevin Kenny <kennykb@acm.org> + + * tests/fCmd.test (fCmd-30.1): Changed registry location of the + 'My Documents' folder to the one that's correct for Windows 2000, + XP, Server 2003, Vista, Server 2008, and Windows 7. + (See http://support.microsoft.com/kb/310746) + 2009-11-23 Jan Nijtmans <nijtmans@users.sf.net> * win/tclWinDde.c #undef STATIC_BUILD, in order to make sure that diff --git a/tests/fCmd.test b/tests/fCmd.test index 9f588e4..c677a45 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: fCmd.test,v 1.68 2009/11/23 20:36:30 dgp Exp $ +# RCS: @(#) $Id: fCmd.test,v 1.69 2009/11/23 22:14:27 kennykb Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -2548,7 +2548,7 @@ removeDirectory abc.dir test fCmd-30.1 {file writable on 'My Documents'} -setup { # Get the localized version of the folder name by looking in the registry. - set mydocsname [registry get {HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths} $tcl_platform(user)] + set mydocsname [registry get {HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders} Personal] } -constraints {2000orNewer reg} -body { file writable $mydocsname } -result 1 |