From 08871cd59928d97b02d2821ef9dfa5024bf79806 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Mon, 28 May 2001 04:31:14 +0000
Subject: tests/utf.test: added tests to check unicode 3 compliance

---
 tests/utf.test | 40 ++++++++++++++++++++++++++++++++--------
 1 file changed, 32 insertions(+), 8 deletions(-)

diff --git a/tests/utf.test b/tests/utf.test
index 7ac3ee2..0ba2414 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: utf.test,v 1.7 2000/04/10 17:19:05 ericm Exp $
+# RCS: @(#) $Id: utf.test,v 1.8 2001/05/28 04:31:14 hobbs Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -257,7 +257,13 @@ test utf-20.1 {TclUniCharNcmp} {
 } {}
 
 test utf-21.1 {TclUniCharIsAlnum} {
-} {}
+    # this returns 1 with Unicode 3 compliance
+    string is alnum \u1040\u021f
+} {1}
+test utf-21.2 {unicode alnum char in regc_locale.c} {
+    # this returns 1 with Unicode 3 compliance
+    list [regexp {^[[:alnum:]]+$} \u1040\u021f] [regexp {^\w+$} \u1040\u021f]
+} {1 1}
 
 test utf-22.1 {TclUniCharIsWordChar} {
     string wordend "xyz123_bar fg" 0
@@ -265,15 +271,33 @@ test utf-22.1 {TclUniCharIsWordChar} {
 test utf-22.2 {TclUniCharIsWordChar} {
     string wordend "x\u5080z123_bar\u203c fg" 0
 } 10
-    
+
 test utf-23.1 {TclUniCharIsAlpha} {
-} {}
+    # this returns 1 with Unicode 3 compliance
+    string is alpha \u021f
+} {1}
+test utf-23.2 {unicode alpha char in regc_locale.c} {
+    # this returns 1 with Unicode 3 compliance
+    regexp {^[[:alpha:]]+$} \u021f
+} {1}
 
 test utf-24.1 {TclUniCharIsDigit} {
-} {}
-
-test utf-24.2 {TclUniCharIsSpace} {
-} {}
+    # this returns 1 with Unicode 3 compliance
+    string is digit \u1040
+} {1}
+test utf-24.2 {unicode digit char in regc_locale.c} {
+    # this returns 1 with Unicode 3 compliance
+    list [regexp {^[[:digit:]]+$} \u1040] [regexp {^\d+$} \u1040]
+} {1 1}
+
+test utf-24.1 {TclUniCharIsSpace} {
+    # this returns 1 with Unicode 3 compliance
+    string is space \u1680
+} {1}
+test utf-24.2 {unicode space char in regc_locale.c} {
+    # this returns 1 with Unicode 3 compliance
+    list [regexp {^[[:space:]]+$} \u1680] [regexp {^\s+$} \u1680]
+} {1 1}
 
 # cleanup
 ::tcltest::cleanupTests
-- 
cgit v0.12