diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2009-11-23 22:14:27 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2009-11-23 22:14:27 (GMT) |
| commit | 23ffc9c37d094e8160dac2bc59700f2f3d2938bd (patch) | |
| tree | 92a442f404399df9ffaef27e5aaca8418f28f699 /tests | |
| parent | c2577af29d148dccad05d2fa42683f952004ff92 (diff) | |
| download | tcl-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.test | 4 |
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 |