summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-06-18 07:43:59 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-06-18 07:43:59 (GMT)
commit914227b03938ff6da7a4b35ef2e9a2b495df3ba0 (patch)
treebadfd30dee7ef1a7a95dabf3bee8cc225367e523
parent5298476c8a9dce4f5b1e2519220df640ba3c7046 (diff)
downloadtcl-914227b03938ff6da7a4b35ef2e9a2b495df3ba0.zip
tcl-914227b03938ff6da7a4b35ef2e9a2b495df3ba0.tar.gz
tcl-914227b03938ff6da7a4b35ef2e9a2b495df3ba0.tar.bz2
Fix uniClass tool which was the real cause for [a876646efe], and add test-case for it.
-rw-r--r--tests/utf.test4
-rw-r--r--tools/uniClass.tcl2
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/utf.test b/tests/utf.test
index ad1e7b8..35c5f73 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -322,8 +322,8 @@ test utf-21.11 {TclUniCharIsControl} {
string is control \u00ad
} {1}
test utf-21.12 {unicode control char in regc_locale.c} {
- # [Bug 3464428]
- regexp {^[[:cntrl:]]$} \u00ad
+ # [Bug 3464428], [Bug a876646efe]
+ regexp {^[[:cntrl:]]*$} \u0000\u001f\u00ad
} {1}
test utf-22.1 {TclUniCharIsWordChar} {
diff --git a/tools/uniClass.tcl b/tools/uniClass.tcl
index 32b40e9..9b4819d 100644
--- a/tools/uniClass.tcl
+++ b/tools/uniClass.tcl
@@ -72,7 +72,7 @@ proc genTable {type} {
if {$i == ($last + 1)} {
set last $i
} else {
- if {$first > 0} {
+ if {$first >= 0} {
emitRange $first $last
}
set first $i