diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-06-18 07:43:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-06-18 07:43:59 (GMT) |
| commit | 7243b34d8035e8705d690339b6005161c9edbd8d (patch) | |
| tree | badfd30dee7ef1a7a95dabf3bee8cc225367e523 | |
| parent | 5f13065a335fd3876ecc7722873addce5129f56c (diff) | |
| download | tcl-7243b34d8035e8705d690339b6005161c9edbd8d.zip tcl-7243b34d8035e8705d690339b6005161c9edbd8d.tar.gz tcl-7243b34d8035e8705d690339b6005161c9edbd8d.tar.bz2 | |
Fix uniClass tool which was the real cause for [a876646efe], and add test-case for it.
| -rw-r--r-- | tests/utf.test | 4 | ||||
| -rw-r--r-- | tools/uniClass.tcl | 2 |
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 |