diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-28 20:02:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-28 20:02:44 (GMT) |
| commit | e71aa6771eb99006cbe78b6dd13a0e1b1828e64f (patch) | |
| tree | a818d16e2938bf9ec2d2bc0fcc278cb2377397b0 | |
| parent | 280ebb9eae86f96e58f1d5761eb6e1460bacd09b (diff) | |
| download | tcl-e71aa6771eb99006cbe78b6dd13a0e1b1828e64f.zip tcl-e71aa6771eb99006cbe78b6dd13a0e1b1828e64f.tar.gz tcl-e71aa6771eb99006cbe78b6dd13a0e1b1828e64f.tar.bz2 | |
Bring forward test-cases utf-6.94 and utf-6.95 from Tcl 8.6 (higher ones have no value IMHO, but those 2 have!)
| -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 12841fc..a910c36 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -496,6 +496,12 @@ test utf-6.92 {Tcl_UtfNext, pointing to 2th byte of 4-byte valid sequence} testu test utf-6.93 {Tcl_UtfNext, pointing to 2th byte of 4-byte invalid sequence} testutfnext { testutfnext -bytestring \x80\x80\x80 } 3 +test utf-6.94 {Tcl_UtfNext, pointing to 2th byte of 5-byte invalid sequence} testutfnext { + testutfnext -bytestring \xA0\xA0\xA0\xA0 +} 3 +test utf-6.95 {Tcl_UtfNext, pointing to 2th byte of 5-byte invalid sequence} testutfnext { + testutfnext -bytestring \x80\x80\x80\x80 +} 3 test utf-7.1 {Tcl_UtfPrev} testutfprev { testutfprev {} |