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} {
