diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-30 13:45:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-30 13:45:21 (GMT) |
| commit | c4c6b4ae6a52cd4b11a1b23057b88f367e25467e (patch) | |
| tree | ef521791371fa4767dcf73dbcd6525d23e854073 /tests/encoding.test | |
| parent | b75fb42503acd37c3418a65e3ef5269571349ccc (diff) | |
| parent | d7c4bec3d28476bba726304bad81a27589d6f38b (diff) | |
| download | tcl-c4c6b4ae6a52cd4b11a1b23057b88f367e25467e.zip tcl-c4c6b4ae6a52cd4b11a1b23057b88f367e25467e.tar.gz tcl-c4c6b4ae6a52cd4b11a1b23057b88f367e25467e.tar.bz2 | |
Merge 8.5
Diffstat (limited to 'tests/encoding.test')
| -rw-r--r-- | tests/encoding.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index a969efc..552c97f 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -400,6 +400,11 @@ test encoding-15.15 {UtfToUtfProc low surrogate character output} { binary scan $y H* z list [string length $x] [string length $y] $z } {1 3 eda882} +test encoding-15.16 {UtfToUtfProc: Invalid 4-byte UTF-8, see [ed29806ba]} { + set x \xF0\xA0\xA1\xC2 + set y [encoding convertfrom utf-8 \xF0\xA0\xA1\xC2] + list [string length $x] $y +} "4 \xF0\xA0\xA1\xC2" test encoding-16.1 {UnicodeToUtfProc} { set val [encoding convertfrom unicode NN] |