diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-31 06:54:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-31 06:54:28 (GMT) |
| commit | 69fd9623d0fd2d0eea56ab416fcf4b51d0be91dd (patch) | |
| tree | 553f04063f40e4122ea210b9f22ee9a0a559f45f /tests | |
| parent | adfc51ded53a9a4be5a10369e9f329f75a24bac8 (diff) | |
| parent | 6b90b986b2b9db1fa7d0d34fb406ce0b66f6889d (diff) | |
| download | tcl-69fd9623d0fd2d0eea56ab416fcf4b51d0be91dd.zip tcl-69fd9623d0fd2d0eea56ab416fcf4b51d0be91dd.tar.gz tcl-69fd9623d0fd2d0eea56ab416fcf4b51d0be91dd.tar.bz2 | |
Merge tip-597
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/encoding.test | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index d6c4784..45b5f49 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -470,11 +470,10 @@ test encoding-15.27 {UtfToUtfProc low surrogate character output} { list [string length $x] [string length $y] $z } {1 3 efbfbd} test encoding-15.28 {UtfToUtfProc CESU-8 6-byte sequence} { - set x \U10000 set y [encoding convertto cesu-8 \U10000] binary scan $y H* z - list [string length $x] [string length $y] $z -} {2 6 eda080edb080} + list [string length $y] $z +} {6 eda080edb080} test encoding-16.1 {Utf16ToUtfProc} -body { set val [encoding convertfrom utf-16 NN] |