diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-12-11 09:17:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-12-11 09:17:10 (GMT) |
| commit | 3e21c51d2024209a92c6297519877774287b3b36 (patch) | |
| tree | 2df0b4d47d88642f7e3412753299de1a54d82338 /tests/utf.test | |
| parent | 7824cd697e895d61b9005ad15a07c0fff589106f (diff) | |
| parent | 7537c6ce988d50fb8a8c44bb43f74acfcb7697dc (diff) | |
| download | tcl-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.test | 4 |
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 |