diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-30 14:42:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-30 14:42:37 (GMT) |
| commit | 833487508bbaa17224fad03984984dd06a1fc9f0 (patch) | |
| tree | 882091680f510a560207a8ec99d546a34d3ea149 /tests | |
| parent | 209b8d0bde085c41388ae13dbea251ba4dc81749 (diff) | |
| parent | fa96cac29f10b30e6fb499800598cc35ba2a19d3 (diff) | |
| download | tcl-833487508bbaa17224fad03984984dd06a1fc9f0.zip tcl-833487508bbaa17224fad03984984dd06a1fc9f0.tar.gz tcl-833487508bbaa17224fad03984984dd06a1fc9f0.tar.bz2 | |
Rebase to 8.7
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/binary.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/binary.test b/tests/binary.test index 2782a9d..9a309e0 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -3015,16 +3015,16 @@ test binary-79.2 {Tcl_SetByteArrayLength} testsetbytearraylength { testsetbytearraylength [string cat Ł B C] 1 } A -test binary-80.1 {TclGetBytesFromObj} -constraints testbytestring -returnCodes 1 -body { +test binary-80.1 {Tcl_GetBytesFromObj} -constraints testbytestring -returnCodes 1 -body { testbytestring "乎" } -result "expected byte sequence but character 0 was '乎' (U+004E4E)" -test binary-80.2 {TclGetBytesFromObj} -constraints testbytestring -returnCodes 1 -body { +test binary-80.2 {Tcl_GetBytesFromObj} -constraints testbytestring -returnCodes 1 -body { testbytestring [testbytestring "\x00\xA0\xA0\xA0\xE4\xB9\x8E"] } -result "expected byte sequence but character 4 was '乎' (U+004E4E)" -test binary-80.3 {TclGetBytesFromObj} -constraints testbytestring -returnCodes 1 -body { +test binary-80.3 {Tcl_GetBytesFromObj} -constraints testbytestring -returnCodes 1 -body { testbytestring [testbytestring "\xC0\x80\xA0\xA0\xA0\xE4\xB9\x8E"] } -result "expected byte sequence but character 4 was '乎' (U+004E4E)" -test binary-80.4 {TclGetBytesFromObj} -constraints testbytestring -returnCodes 1 -body { +test binary-80.4 {Tcl_GetBytesFromObj} -constraints testbytestring -returnCodes 1 -body { testbytestring [testbytestring "\xC0\x80\xA0\xA0\xA0\xF0\x9F\x98\x81"] } -result "expected byte sequence but character 4 was '\U01F601' (U+01F601)" |