summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--tests/registry.test6
2 files changed, 8 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 8dc4464..6df04f8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-03-04 Pat Thoyts <patthoyts@users.sourceforge.net>
+
+ * tests/registry.test: Applied fixed from #766159 to skip two
+ tests on Win98 that depend on a Unicode registry (NT specific).
+
2004-03-04 Don Porter <dgp@users.sourceforge.net>
* generic/tclParse.c (InitParse): Factored the common code
diff --git a/tests/registry.test b/tests/registry.test
index a075162..69917e3 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -10,7 +10,7 @@
# Copyright (c) 1997 by Sun Microsystems, Inc. All rights reserved.
# Copyright (c) 1998-1999 by Scriptics Corporation.
#
-# RCS: @(#) $Id: registry.test,v 1.14 2003/03/19 05:23:46 dgp Exp $
+# RCS: @(#) $Id: registry.test,v 1.15 2004/03/04 23:02:01 patthoyts Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -238,7 +238,7 @@ test registry-4.7 {GetKeyNames: Unicode} {pcOnly english} {
registry delete HKEY_CLASSES_ROOT\\TclFoobar
set result
} "baz\u00c7bar blat"
-test registry-4.8 {GetKeyNames: Unicode} {pcOnly} {
+test registry-4.8 {GetKeyNames: Unicode} {pcOnly nt} {
registry delete HKEY_CLASSES_ROOT\\TclFoobar
registry set HKEY_CLASSES_ROOT\\TclFoobar\\baz\u30b7bar
registry set HKEY_CLASSES_ROOT\\TclFoobar\\blat
@@ -428,7 +428,7 @@ test registry-6.17 {GetValue: Unicode value names} {pcOnly} {
registry delete HKEY_CLASSES_ROOT\\TclFoobar
set result
} foobar
-test registry-6.18 {GetValue: values with Unicode strings} {pcOnly} {
+test registry-6.18 {GetValue: values with Unicode strings} {pcOnly nt} {
registry set HKEY_CLASSES_ROOT\\TclFoobar val1 {foo ba\u30b7r baz} multi_sz
set result [registry get HKEY_CLASSES_ROOT\\TclFoobar val1]
registry delete HKEY_CLASSES_ROOT\\TclFoobar