summaryrefslogtreecommitdiffstats
path: root/tests/encoding.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-04-30 14:19:19 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-04-30 14:19:19 (GMT)
commitf4d01f9405ce74003aa8a22b5322dc8a004f2393 (patch)
tree7ad84c9785bc4bf7b23e4f88b87b220196ea6341 /tests/encoding.test
parent4c7e61bdbca84ca47a3400996676243ae26237f6 (diff)
parent073073bfc77d752bb73fa1edafc133e486cdf44d (diff)
downloadtcl-f4d01f9405ce74003aa8a22b5322dc8a004f2393.zip
tcl-f4d01f9405ce74003aa8a22b5322dc8a004f2393.tar.gz
tcl-f4d01f9405ce74003aa8a22b5322dc8a004f2393.tar.bz2
Merge 8.6
Diffstat (limited to 'tests/encoding.test')
-rw-r--r--tests/encoding.test7
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