diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-12-11 09:13:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-12-11 09:13:34 (GMT) |
| commit | 7cc01f77560c27ac24cdc87a1171c1c75853a7cf (patch) | |
| tree | d35ce3e727a50dbab248f6b112ee1c1065aa9a22 /tests/utf.test | |
| parent | 2bb69f505c4c33c902681ef4459bdd3ef0556c3b (diff) | |
| download | tcl-7cc01f77560c27ac24cdc87a1171c1c75853a7cf.zip tcl-7cc01f77560c27ac24cdc87a1171c1c75853a7cf.tar.gz tcl-7cc01f77560c27ac24cdc87a1171c1c75853a7cf.tar.bz2 | |
[Bug 3457031]: 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 88e8275..60e3d52 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -282,6 +282,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 |