diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-30 14:19:19 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-30 14:19:19 (GMT) |
commit | f4d01f9405ce74003aa8a22b5322dc8a004f2393 (patch) | |
tree | 7ad84c9785bc4bf7b23e4f88b87b220196ea6341 /tests/encoding.test | |
parent | 4c7e61bdbca84ca47a3400996676243ae26237f6 (diff) | |
parent | 073073bfc77d752bb73fa1edafc133e486cdf44d (diff) | |
download | tcl-f4d01f9405ce74003aa8a22b5322dc8a004f2393.zip tcl-f4d01f9405ce74003aa8a22b5322dc8a004f2393.tar.gz tcl-f4d01f9405ce74003aa8a22b5322dc8a004f2393.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tests/encoding.test')
-rw-r--r-- | tests/encoding.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index ccc32da..e313a29 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -391,7 +391,12 @@ 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 emoji character output} { +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-15.17 {UtfToUtfProc emoji character output} { set x \U1F602 set y [encoding convertto utf-8 \U1F602] binary scan $y H* z |