diff options
author | dgp <dgp@users.sourceforge.net> | 2020-04-24 17:37:36 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-04-24 17:37:36 (GMT) |
commit | fbfa513c23b05ae5deeaa0ff81ce8045967890c0 (patch) | |
tree | 8852239db537d0b5d6d9fc1410618aee45700509 | |
parent | 59343a872e8587e5da4eb52956d453af67535f5e (diff) | |
download | tcl-fbfa513c23b05ae5deeaa0ff81ce8045967890c0.zip tcl-fbfa513c23b05ae5deeaa0ff81ce8045967890c0.tar.gz tcl-fbfa513c23b05ae5deeaa0ff81ce8045967890c0.tar.bz2 |
Two more tests developed during work on [27944a3661].
-rw-r--r-- | tests/utf.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/utf.test b/tests/utf.test index d749552..57b8a80 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -565,6 +565,12 @@ test utf-6.123 {Tcl_UtfNext, read limits} testutfnext { test utf-6.124 {Tcl_UtfNext, read limits} testutfnext { testutfnext \xA0\xA0\xA0\xA0\xA0 4 } 1 +test utf-6.125 {Tcl_UtfNext, pointing to 2th byte of 5-byte invalid sequence} testutfnext { + testutfnext \xA0\xA0\xA0\xA0 +} 1 +test utf-6.126 {Tcl_UtfNext, pointing to 2th byte of 5-byte invalid sequence} testutfnext { + testutfnext \x80\x80\x80\x80 +} 1 test utf-7.1 {Tcl_UtfPrev} testutfprev { testutfprev {} |