From f35ac41c5ad6fb2efa6d0833f0299549c69a6329 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Tue, 1 Jul 2008 13:24:06 +0000
Subject: Fix [2006884]

---
 ChangeLog         |  5 +++++
 tests/string.test | 18 ++++++++----------
 2 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 2563779..666974e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-01  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
+
+	* tests/string.test: Eliminate non-ASCII characters from the actual
+	test script. [Bug 2006884]
+
 2008-06-30  Donal K. Fellows  <dkf@users.sf.net>
 
 	* doc/ObjectType.3: Clean up typedef formatting.
diff --git a/tests/string.test b/tests/string.test
index 85ca3f1..b42db45 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: string.test,v 1.71 2007/12/13 15:26:07 dgp Exp $
+# RCS: @(#) $Id: string.test,v 1.72 2008/07/01 13:24:08 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -337,9 +337,7 @@ test string-6.12 {string is alnum, true} {
 test string-6.13 {string is alnum, false} {
     list [string is alnum -failindex var abc1.23] $var
 } {0 4}
-test string-6.14 {string is alnum, unicode} {
-    string is alnum abcü
-} 1
+test string-6.14 {string is alnum, unicode} "string is alnum abc\xfc" 1
 test string-6.15 {string is alpha, true} {
     string is alpha abc
 } 1
@@ -371,7 +369,7 @@ test string-6.24 {string is digit, true} {
     string is digit 0123456789
 } 1
 test string-6.25 {string is digit, false} {
-    list [string is digit -fail var 0123Ü567] $var
+    list [string is digit -fail var 0123\u00dc567] $var
 } {0 4}
 test string-6.26 {string is digit, false} {
     list [string is digit -fail var +123567] $var
@@ -492,7 +490,7 @@ test string-6.60 {string is lower, true} {
     string is lower abc
 } 1
 test string-6.61 {string is lower, unicode true} {
-    string is lower abcüue
+    string is lower abc\u00fcue
 } 1
 test string-6.62 {string is lower, false} {
     list [string is lower -fail var aBc] $var
@@ -501,7 +499,7 @@ test string-6.63 {string is lower, false} {
     list [string is lower -fail var abc1] $var
 } {0 3}
 test string-6.64 {string is lower, unicode false} {
-    list [string is lower -fail var abÜUE] $var
+    list [string is lower -fail var ab\u00dcUE] $var
 } {0 2}
 test string-6.65 {string is space, true} {
     string is space " \t\n\v\f"
@@ -539,7 +537,7 @@ test string-6.75 {string is upper, true} {
     string is upper ABC
 } 1
 test string-6.76 {string is upper, unicode true} {
-    string is upper ABCÜUE
+    string is upper ABC\u00dcUE
 } 1
 test string-6.77 {string is upper, false} {
     list [string is upper -fail var AbC] $var
@@ -548,13 +546,13 @@ test string-6.78 {string is upper, false} {
     list [string is upper -fail var AB2C] $var
 } {0 2}
 test string-6.79 {string is upper, unicode false} {
-    list [string is upper -fail var ABCüue] $var
+    list [string is upper -fail var ABC\u00fcue] $var
 } {0 3}
 test string-6.80 {string is wordchar, true} {
     string is wordchar abc_123
 } 1
 test string-6.81 {string is wordchar, unicode true} {
-    string is wordchar abcüabÜAB\u5001
+    string is wordchar abc\u00fcab\u00dcAB\u5001
 } 1
 test string-6.82 {string is wordchar, false} {
     list [string is wordchar -fail var abcd.ef] $var
-- 
cgit v0.12