diff options
| -rw-r--r-- | tests/utf.test | 40 |
1 files 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 |