diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-03-13 16:32:55 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-03-13 16:32:55 (GMT) |
| commit | 95158a2d57b3724c868c22025657b56c2812f4d5 (patch) | |
| tree | 02709e77f59c81fb9f5ad1e885b91c947c9f1e85 /tests | |
| parent | 22239fb7d2e4d9fae7bc87076d655170b791c46b (diff) | |
| download | tcl-95158a2d57b3724c868c22025657b56c2812f4d5.zip tcl-95158a2d57b3724c868c22025657b56c2812f4d5.tar.gz tcl-95158a2d57b3724c868c22025657b56c2812f4d5.tar.bz2 | |
Fix passing of encoding state in testencoding Tcl_UtfToExternal
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/utfext.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/utfext.test b/tests/utfext.test index 61e36b8..6cf3dd7 100644 --- a/tests/utfext.test +++ b/tests/utfext.test @@ -88,6 +88,11 @@ test xx-bufferoverflow {buffer overflow Tcl_ExternalToUtf} -body { testencoding Tcl_UtfToExternal unicode A {start end} {} 1 } -result {nospace {} {}} +# Another bug - char limit not obeyed +# % set cv 2 +# % testencoding Tcl_ExternalToUtf utf-8 abcdefgh {start end noterminate charlimit} {} 20 rv wv cv +# nospace {} abcÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ + ::tcltest::cleanupTests return |