diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-07 14:23:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-07 14:23:37 (GMT) |
| commit | ad7e9fe6258f269fc6d63457a7cfa93ff0ea9f59 (patch) | |
| tree | dac737871a8656cb3290b033af84e5ca38412c14 /tests/utfext.test | |
| parent | 18581927256e573c7e9441dbd65a2dc9fe391111 (diff) | |
| download | tcl-ad7e9fe6258f269fc6d63457a7cfa93ff0ea9f59.zip tcl-ad7e9fe6258f269fc6d63457a7cfa93ff0ea9f59.tar.gz tcl-ad7e9fe6258f269fc6d63457a7cfa93ff0ea9f59.tar.bz2 | |
TIP #636 cleanup: Eliminate the use of Tcl_ObjTypeLength() et al, which look public but are internal and not documented anywhere.
Diffstat (limited to 'tests/utfext.test')
| -rw-r--r-- | tests/utfext.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/utfext.test b/tests/utfext.test index 0670502..1ae2374 100644 --- a/tests/utfext.test +++ b/tests/utfext.test @@ -75,8 +75,8 @@ test xx-bufferoverflow {buffer overflow Tcl_ExternalToUtf} -body { # nospace {} abcÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ test TableToUtf-bug-5be203d6ca {Bug 5be203d6ca - truncated prefix in table encoding} -body { - set src \x82\x4f\x82\x50\x82 - lassign [testencoding Tcl_ExternalToUtf shiftjis $src {start} 0 16 srcRead dstWritten charsWritten] buf + set src \x82\x4F\x82\x50\x82 + lassign [testencoding Tcl_ExternalToUtf shiftjis $src {start} 0 16 srcRead dstWritten charsWritten] buf set result [list [testencoding Tcl_ExternalToUtf shiftjis $src {start} 0 16 srcRead dstWritten charsWritten] $srcRead $dstWritten $charsWritten] lappend result {*}[list [testencoding Tcl_ExternalToUtf shiftjis [string range $src $srcRead end] {end} 0 10 srcRead dstWritten charsWritten] $srcRead $dstWritten $charsWritten] } -result [list [list multibyte 0 \xEF\xBC\x90\xEF\xBC\x91\x00\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF] 4 6 2 [list ok 0 \xC2\x82\x00\xFF\xFF\xFF\xFF\xFF\xFF\xFF] 1 2 1] |