diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-05-07 18:56:37 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-05-07 18:56:37 (GMT) |
| commit | 0187afa965d2276476598016ea28d8fcd96d48ea (patch) | |
| tree | 53d8a1b8b617ed4ddcd1942590ab392b44383eb4 /tests/utf.test | |
| parent | 846b23ab0a9dfcfb2675ae37c1451ee573609196 (diff) | |
| download | tcl-0187afa965d2276476598016ea28d8fcd96d48ea.zip tcl-0187afa965d2276476598016ea28d8fcd96d48ea.tar.gz tcl-0187afa965d2276476598016ea28d8fcd96d48ea.tar.bz2 | |
Test demonstrating bug in ticket [b2816a3afe].
Diffstat (limited to 'tests/utf.test')
| -rw-r--r-- | tests/utf.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/utf.test b/tests/utf.test index 8aa3757..f48299d 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -175,6 +175,9 @@ test utf-4.12.1 {Tcl_NumUtfChars: #4-byte UTF-8 character} {testnumutfchars test test utf-4.12.2 {Tcl_NumUtfChars: #4-byte UTF-8 character} {testnumutfchars testbytestring utf16} { testnumutfchars [testbytestring \xF0\x9F\x92\xA9] end } 2 +test utf-4.13 {Tcl_NumUtfChars: end of string} {testnumutfchars testbytestring} { + testnumutfchars foobar[testbytestring \xF2\xC2\xA0] end +} 8 test utf-5.1 {Tcl_UtfFindFirst} {testfindfirst testbytestring} { testfindfirst [testbytestring abcbc] 98 |