summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-12-24 00:30:08 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-12-24 00:30:08 (GMT)
commitd7156f25cf364f27a66714b3180799d3abf07a9a (patch)
tree6c6340bb387ae1423667cd5c526982bf6d4bae90 /tests
parent9c27c0e59b0afaae14af4b0a18f128744ea594b1 (diff)
parentbd656d0e3881028b3b25a40e96d9253baabd44ec (diff)
downloadtcl-d7156f25cf364f27a66714b3180799d3abf07a9a.zip
tcl-d7156f25cf364f27a66714b3180799d3abf07a9a.tar.gz
tcl-d7156f25cf364f27a66714b3180799d3abf07a9a.tar.bz2
[Bug 3464428] string is graph \u0120 is wrong
Diffstat (limited to 'tests')
-rw-r--r--tests/utf.test8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/utf.test b/tests/utf.test
index c300f3c..875c5dc 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -301,6 +301,14 @@ test utf-21.3 {unicode print char in regc_locale.c} {
# this returns 1 with Unicode 6 compliance
regexp {^[[:print:]]+$} \ufbc1
} 1
+test utf-21.4 {TclUniCharIsGraph} {
+ # [Bug 3464428]
+ string is graph \u0120
+} {1}
+test utf-21.5 {unicode graph char in regc_locale.c} {
+ # [Bug 3464428]
+ regexp {^[[:graph:]]+$} \u0120
+} {1}
test utf-22.1 {TclUniCharIsWordChar} {
string wordend "xyz123_bar fg" 0