diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-02-16 21:03:48 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-02-16 21:03:48 (GMT) |
commit | 2c3252bc5c0a80e90ade82389f8b80faa41a6e77 (patch) | |
tree | 81a8ebf669ce047c83ba24dbd1a5b1b609f7d23f /tests/encoding.test | |
parent | d790e81db2d62271b01b55e00e219d0882f0250d (diff) | |
parent | 0563a789022a80cd7745d596028b570f0fb24cbb (diff) | |
download | tcl-2c3252bc5c0a80e90ade82389f8b80faa41a6e77.zip tcl-2c3252bc5c0a80e90ade82389f8b80faa41a6e77.tar.gz tcl-2c3252bc5c0a80e90ade82389f8b80faa41a6e77.tar.bz2 |
Fix [5e6ae6e05e]: Implement -strict correctly for cesu-8
Diffstat (limited to 'tests/encoding.test')
-rw-r--r-- | tests/encoding.test | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 6f1a760..50a0cc2 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -459,17 +459,20 @@ test encoding-15.26 {UtfToUtfProc CESU-8} { encoding convertfrom cesu-8 \xC0\x80 } \x00 test encoding-15.27 {UtfToUtfProc -strict CESU-8} { - encoding convertfrom -strict cesu-8 \xC0\x80 + encoding convertfrom -strict cesu-8 \x00 } \x00 -test encoding-15.28 {UtfToUtfProc -strict CESU-8} { +test encoding-15.28 {UtfToUtfProc -strict CESU-8} -body { encoding convertfrom -strict cesu-8 \xC0\x80 -} \x00 +} -returnCodes 1 -result {unexpected byte sequence starting at index 0: '\xC0'} test encoding-15.29 {UtfToUtfProc CESU-8} { encoding convertto cesu-8 \x00 -} \xC0\x80 +} \x00 test encoding-15.30 {UtfToUtfProc -strict CESU-8} { encoding convertto -strict cesu-8 \x00 -} \xC0\x80 +} \x00 +test encoding-15.31 {UtfToUtfProc -strict CESU-8 (bytes F0-F4 are invalid)} -body { + encoding convertfrom -strict cesu-8 \xF1\x86\x83\x9C +} -returnCodes 1 -result {unexpected byte sequence starting at index 0: '\xF1'} test encoding-16.1 {Utf16ToUtfProc} -body { set val [encoding convertfrom utf-16 NN] |