diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-10 15:37:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-10 15:37:12 (GMT) |
| commit | b8ac435e96ce56ef3a6a8b8b60feb1bb3dd7c95a (patch) | |
| tree | 607e11001a09611e5d43c9a62f5c9876d4f740c0 /tests/binary.test | |
| parent | c0c0164a7120bc2018c400cb82da9f14c5b921db (diff) | |
| parent | 301c2624cdf04fcd5e6399378496f9f52259424e (diff) | |
| download | tcl-b8ac435e96ce56ef3a6a8b8b60feb1bb3dd7c95a.zip tcl-b8ac435e96ce56ef3a6a8b8b60feb1bb3dd7c95a.tar.gz tcl-b8ac435e96ce56ef3a6a8b8b60feb1bb3dd7c95a.tar.bz2 | |
Rebase to latest 8.7
Diffstat (limited to 'tests/binary.test')
| -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 c51d0e9..095fc19 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)" |