diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-26 14:04:00 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-26 14:04:00 (GMT) |
commit | 588e5a48cb262a4fa3d60698be3f1d94434dfcf1 (patch) | |
tree | 21cb8573b4117b94c7a339111087f5f033da852d /tests | |
parent | 543961cfe677aed974b369bd0dee75a7bbdfaacc (diff) | |
download | tcl-588e5a48cb262a4fa3d60698be3f1d94434dfcf1.zip tcl-588e5a48cb262a4fa3d60698be3f1d94434dfcf1.tar.gz tcl-588e5a48cb262a4fa3d60698be3f1d94434dfcf1.tar.bz2 |
Handle the situation when there is "-nothrow" or "-stoponerror" but without providing encoding
Diffstat (limited to 'tests')
-rw-r--r-- | tests/encoding.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index d30ef60..55ace7f 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -627,6 +627,12 @@ test encoding-24.19 {Parse valid or invalid utf-8} -constraints testbytestring - test encoding-24.20 {Parse valid or invalid utf-8} -constraints testbytestring -body { encoding convertto -stoponerror utf-8 "ZX\uD800" } -returnCodes 1 -match glob -result "unexpected character at index 2: 'U+00D800'" +test encoding-24.21 {Parse with -nothrow but without providing encoding} { + string length [encoding convertfrom -nothrow "\x20"] +} 1 +test encoding-24.22 {Parse with -nothrow but without providing encoding} { + string length [encoding convertto -nothrow "\x20"] +} 1 file delete [file join [temporaryDirectory] iso2022.txt] # |