diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-08-18 07:08:55 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-08-18 07:08:55 (GMT) |
| commit | df59030308f1bd19d2618f47f7e046d6c29695da (patch) | |
| tree | e9574e842e9e5958f57aa9e81f085ebfd829b126 /tests/encoding.test | |
| parent | cbaacc87650af75bdd515ebb104d5f7b8a7c2dad (diff) | |
| parent | 8f0801033282ae8543f09d6e82509d8e1ef9122e (diff) | |
| download | tcl-df59030308f1bd19d2618f47f7e046d6c29695da.zip tcl-df59030308f1bd19d2618f47f7e046d6c29695da.tar.gz tcl-df59030308f1bd19d2618f47f7e046d6c29695da.tar.bz2 | |
Merge 8.7 - Fix UtfToUtf16Proc
Diffstat (limited to 'tests/encoding.test')
| -rw-r--r-- | tests/encoding.test | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 23d6b38..3516f17 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -1102,12 +1102,8 @@ test encoding-bug-183a1adcc0-4 {Bug [183a1adcc0] Buffer overflow Tcl_UtfToExtern } -result [list 0 [list nospace {} \x00\x00\xFF]] test encoding-bug-183a1adcc0-5 {Bug [183a1adcc0] Buffer overflow Tcl_UtfToExternal} -constraints { - testencoding ucs2 knownBug + testencoding } -body { - # The knownBug constraint is because test depends on TCL_UTF_MAX and - # also UtfToUtf16 assumes space required in destination buffer is - # sizeof(Tcl_UniChar) which is incorrect when TCL_UTF_MAX==4 - # Note - buffers are initialized to \xFF list [catch {testencoding Tcl_UtfToExternal utf-16 A {start end} {} 4} result] $result } -result [list 0 [list ok {} [expr {$::tcl_platform(byteOrder) eq "littleEndian" ? "\x41\x00" : "\x00\x41"}]\x00\x00]] |