summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-01-09 20:31:27 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-01-09 20:31:27 (GMT)
commit0f369563d656dc5592d01b9736568bf7421ef93d (patch)
treed0809bc9f5392ef9e399297151823e01f896cfcf /tests
parent6ee0348cd69bd13d1817b423952ab4b81fd9f8d8 (diff)
parent05a1c1c8d017993fac4875d1baed7e62ece0bd93 (diff)
downloadtcl-0f369563d656dc5592d01b9736568bf7421ef93d.zip
tcl-0f369563d656dc5592d01b9736568bf7421ef93d.tar.gz
tcl-0f369563d656dc5592d01b9736568bf7421ef93d.tar.bz2
[Bug 3464428] string is graph \u0120 is wrong
Diffstat (limited to 'tests')
-rw-r--r--tests/utf.test28
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/utf.test b/tests/utf.test
index 273773b..ad1e7b8 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -297,6 +297,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