diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-01-09 19:59:47 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-01-09 19:59:47 (GMT) |
| commit | 2908f47e6cc2661771200116780b69f4c4a434f4 (patch) | |
| tree | e9c70fecb67f1316d832759eafcec6f8df633692 /tests | |
| parent | 0e0f0aa95f0cd0fa4ec2f84bd27dfa1f58b48059 (diff) | |
| download | tcl-2908f47e6cc2661771200116780b69f4c4a434f4.zip tcl-2908f47e6cc2661771200116780b69f4c4a434f4.tar.gz tcl-2908f47e6cc2661771200116780b69f4c4a434f4.tar.bz2 | |
[Bug 3464428] string is graph \u0120 is wrong
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/utf.test | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/utf.test b/tests/utf.test index 6d6f301..1d263d0 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -293,6 +293,34 @@ test utf-21.5 {unicode graph char in regc_locale.c} { # [Bug 3464428] regexp {^[[:graph:]]+$} \u0120 } {1} +test utf-21.6 {TclUniCharIsGraph} { + # [Bug 3464428] + string is graph \u00a0 +} {0} +test utf-21.7 {unicode graph char in regc_locale.c} { + # [Bug 3464428] + regexp {[[:graph:]]} \u0020\u00a0\u2028\u2029 +} {0} +test utf-21.8 {TclUniCharIsPrint} { + # [Bug 3464428] + string is print \u0009 +} {0} +test utf-21.9 {unicode print char in regc_locale.c} { + # [Bug 3464428] + regexp {[[:print:]]} \u0009 +} {0} +test utf-21.10 {unicode print char in regc_locale.c} { + # [Bug 3464428] + regexp {[[:print:]]} \u0009 +} {0} +test utf-21.11 {TclUniCharIsControl} { + # [Bug 3464428] + string is control \u00ad +} {1} +test utf-21.12 {unicode control char in regc_locale.c} { + # [Bug 3464428] + regexp {^[[:cntrl:]]$} \u00ad +} {1} test utf-22.1 {TclUniCharIsWordChar} { string wordend "xyz123_bar fg" 0 |