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 | 83b0f547dde81282eeb1ad61fdebc365c1003746 (patch) | |
| tree | 2df0b4d47d88642f7e3412753299de1a54d82338 /tests/utf.test | |
| parent | 033961ed062d4632a286c99a8eddb668cb80762b (diff) | |
| parent | 7cc01f77560c27ac24cdc87a1171c1c75853a7cf (diff) | |
| download | tcl-83b0f547dde81282eeb1ad61fdebc365c1003746.zip tcl-83b0f547dde81282eeb1ad61fdebc365c1003746.tar.gz tcl-83b0f547dde81282eeb1ad61fdebc365c1003746.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 |