diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-30 13:43:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-30 13:43:29 (GMT) |
| commit | d7c4bec3d28476bba726304bad81a27589d6f38b (patch) | |
| tree | 09745662a9ff709c293bb2ac392b7a1f46ba0b54 /tests/encoding.test | |
| parent | ddc9ff2c167c5a19003b36a7998d571aeb243ffa (diff) | |
| download | tcl-d7c4bec3d28476bba726304bad81a27589d6f38b.zip tcl-d7c4bec3d28476bba726304bad81a27589d6f38b.tar.gz tcl-d7c4bec3d28476bba726304bad81a27589d6f38b.tar.bz2 | |
New encoding-15.16 test-case. Fix title of utf 2 test-cases.
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 ec1d111..67317c2 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -319,6 +319,11 @@ test encoding-15.3 {UtfToUtfProc null character input} { binary scan [encoding convertto identity $y] H* z list [string bytelength $x] [string bytelength $y] $z } {1 2 c080} +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] |