From 23ffc9c37d094e8160dac2bc59700f2f3d2938bd Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Mon, 23 Nov 2009 22:14:27 +0000 Subject: * 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) --- ChangeLog | 7 +++++++ tests/fCmd.test | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index e86135d..276716c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2009-11-23 Kevin Kenny + + * 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 * 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 -- cgit v0.12