summaryrefslogtreecommitdiffstats
path: root/tests/utf.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-12-11 09:17:10 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-12-11 09:17:10 (GMT)
commit3e21c51d2024209a92c6297519877774287b3b36 (patch)
tree2df0b4d47d88642f7e3412753299de1a54d82338 /tests/utf.test
parent7824cd697e895d61b9005ad15a07c0fff589106f (diff)
parent7537c6ce988d50fb8a8c44bb43f74acfcb7697dc (diff)
downloadtcl-3e21c51d2024209a92c6297519877774287b3b36.zip
tcl-3e21c51d2024209a92c6297519877774287b3b36.tar.gz
tcl-3e21c51d2024209a92c6297519877774287b3b36.tar.bz2
Some Unicode 6.0 chars not in [:print:] class
Diffstat (limited to 'tests/utf.test')
-rw-r--r--tests/utf.test4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/utf.test b/tests/utf.test
index a6da9d7..c300f3c 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -297,6 +297,10 @@ test utf-21.2 {unicode alnum char in regc_locale.c} {
# this returns 1 with Unicode 6 compliance
list [regexp {^[[:alnum:]]+$} \u1040\u021f\u0220] [regexp {^\w+$} \u1040\u021f\u0220]
} {1 1}
+test utf-21.3 {unicode print char in regc_locale.c} {
+ # this returns 1 with Unicode 6 compliance
+ regexp {^[[:print:]]+$} \ufbc1
+} 1
test utf-22.1 {TclUniCharIsWordChar} {
string wordend "xyz123_bar fg" 0