summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2009-11-23 22:14:27 (GMT)
committerKevin B Kenny <kennykb@acm.org>2009-11-23 22:14:27 (GMT)
commit23ffc9c37d094e8160dac2bc59700f2f3d2938bd (patch)
tree92a442f404399df9ffaef27e5aaca8418f28f699 /tests
parentc2577af29d148dccad05d2fa42683f952004ff92 (diff)
downloadtcl-23ffc9c37d094e8160dac2bc59700f2f3d2938bd.zip
tcl-23ffc9c37d094e8160dac2bc59700f2f3d2938bd.tar.gz
tcl-23ffc9c37d094e8160dac2bc59700f2f3d2938bd.tar.bz2
* 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)
Diffstat (limited to 'tests')
-rw-r--r--tests/fCmd.test4
1 files changed, 2 insertions, 2 deletions
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