diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-02-07 03:06:05 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-02-07 03:06:05 (GMT) |
| commit | ed502a9c1fb2a4504b8de6a475fcf19e92bd6607 (patch) | |
| tree | d0afdfa3b497c17171e32c4b99210d57c55cbfa8 /tests/encoding.test | |
| parent | 715ad9e5969b1dc409168a10cb888d506be884ba (diff) | |
| download | tcl-ed502a9c1fb2a4504b8de6a475fcf19e92bd6607.zip tcl-ed502a9c1fb2a4504b8de6a475fcf19e92bd6607.tar.gz tcl-ed502a9c1fb2a4504b8de6a475fcf19e92bd6607.tar.bz2 | |
Add test cases for [80d4c1c7e5]
Diffstat (limited to 'tests/encoding.test')
| -rw-r--r-- | tests/encoding.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 8bc096c..c27fcd3 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -881,8 +881,8 @@ test encoding-24.37 {Parse invalid utf-8 with -profile tcl8} -body { test encoding-24.38.1 {Try to generate invalid utf-8} -body { encoding convertto -profile tcl8 utf-8 \uD800 } -result \xED\xA0\x80 -test encoding-24.38.2 {Try to generate invalid utf-8} -body { - encoding convertto -profile strict utf-8 \uD800 +test encoding-24.38.2 {Try to generate invalid utf-8 - default profile} -body { + encoding convertto utf-8 \uD800 } -returnCodes 1 -result {unexpected character at index 0: 'U+00D800'} test encoding-24.39 {Try to generate invalid utf-8 with -profile strict} -body { encoding convertto -profile strict utf-8 \uD800 @@ -1176,6 +1176,8 @@ test encoding-bug-66ffafd309-2-replace {Bug [66ffafd309] - invalid DBCS} -body { encoding convertfrom -profile replace jis0208 \x78\x79 } -result \uFFFD\uFFFD + + # cleanup namespace delete ::tcl::test::encoding ::tcltest::cleanupTests |