summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2020-04-24 17:37:36 (GMT)
committerdgp <dgp@users.sourceforge.net>2020-04-24 17:37:36 (GMT)
commitfbfa513c23b05ae5deeaa0ff81ce8045967890c0 (patch)
tree8852239db537d0b5d6d9fc1410618aee45700509
parent59343a872e8587e5da4eb52956d453af67535f5e (diff)
downloadtcl-fbfa513c23b05ae5deeaa0ff81ce8045967890c0.zip
tcl-fbfa513c23b05ae5deeaa0ff81ce8045967890c0.tar.gz
tcl-fbfa513c23b05ae5deeaa0ff81ce8045967890c0.tar.bz2
Two more tests developed during work on [27944a3661].
-rw-r--r--tests/utf.test6
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 {}