diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-01-20 16:51:50 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-01-20 16:51:50 (GMT) |
commit | 073e6715d127e9c252cdc1c852445d0f983e8e27 (patch) | |
tree | 5e6007c1847d3f4b7af6a374deff303134b1c237 /tests/encoding.test | |
parent | 22657ad365387756101eef242c94c8989688955c (diff) | |
download | tcl-073e6715d127e9c252cdc1c852445d0f983e8e27.zip tcl-073e6715d127e9c252cdc1c852445d0f983e8e27.tar.gz tcl-073e6715d127e9c252cdc1c852445d0f983e8e27.tar.bz2 |
Better error-message
Diffstat (limited to 'tests/encoding.test')
-rw-r--r-- | tests/encoding.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 095672c..61676ea 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -681,10 +681,10 @@ test encoding-24.21 {Parse with -nocomplain but without providing encoding} { } 1 test encoding-24.22 {Syntax error, two encodings} -body { encoding convertfrom iso8859-1 utf-8 "ZX\uD800" -} -returnCodes 1 -result {wrong # args: should be "::tcl::encoding::convertfrom ?-nocomplain|?-strict? ?-failindex var?? ?encoding? data"} +} -returnCodes 1 -result {wrong # args: should be "::tcl::encoding::convertfrom ?-strict? ?-failindex var? ?encoding? data" or "::tcl::encoding::convertfrom -nocomplain ?encoding? data"} test encoding-24.23 {Syntax error, two encodings} -body { encoding convertto iso8859-1 utf-8 "ZX\uD800" -} -returnCodes 1 -result {wrong # args: should be "::tcl::encoding::convertto ?-nocomplain|?-strict? ?-failindex var?? ?encoding? data"} +} -returnCodes 1 -result {wrong # args: should be "::tcl::encoding::convertto ?-strict? ?-failindex var? ?encoding? data" or "::tcl::encoding::convertto -nocomplain ?encoding? data"} test encoding-24.24 {Parse invalid utf-8 with -strict} -body { encoding convertfrom -strict utf-8 "\xC0\x80\x00\x00" } -returnCodes 1 -result {unexpected byte sequence starting at index 0: '\xC0'} |