Attachment "reg98.patch" to
ticket [910174ffff]
added by
patthoyts
2004-03-05 06:43:03.
Index: tests/registry.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/registry.test,v
retrieving revision 1.15
diff -c -r1.15 registry.test
*** tests/registry.test 4 Mar 2004 23:02:01 -0000 1.15
--- tests/registry.test 4 Mar 2004 23:31:36 -0000
***************
*** 30,36 ****
# determine the current locale
testConstraint english [expr {[llength [info commands testlocale]]
! && [string equal [testlocale all ""] "English_United States.1252"]
}]
set hostname [info hostname]
--- 30,36 ----
# determine the current locale
testConstraint english [expr {[llength [info commands testlocale]]
! && [string match "English*" [testlocale all ""]]
}]
set hostname [info hostname]
***************
*** 528,534 ****
test registry-9.4 {ParseKeyName: bad keys} {pcOnly} {
list [catch {registry values \\\\\\} msg] $msg
} {1 {bad root name "": must be HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG, HKEY_PERFORMANCE_DATA, or HKEY_DYN_DATA}}
! test registry-9.5 {ParseKeyName: bad keys} {pcOnly english} {
list [catch {registry values \\\\\\HKEY_CLASSES_ROOT} msg] $msg
} {1 {unable to open key: The network address is invalid.}}
test registry-9.6 {ParseKeyName: bad keys} {pcOnly} {
--- 528,534 ----
test registry-9.4 {ParseKeyName: bad keys} {pcOnly} {
list [catch {registry values \\\\\\} msg] $msg
} {1 {bad root name "": must be HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_CURRENT_CONFIG, HKEY_PERFORMANCE_DATA, or HKEY_DYN_DATA}}
! test registry-9.5 {ParseKeyName: bad keys} {pcOnly english nt} {
list [catch {registry values \\\\\\HKEY_CLASSES_ROOT} msg] $msg
} {1 {unable to open key: The network address is invalid.}}
test registry-9.6 {ParseKeyName: bad keys} {pcOnly} {