diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-05 10:41:22 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-05 10:41:22 (GMT) |
| commit | f306b32b6c6df6ac6b9ba0853e3aa130e61c70d0 (patch) | |
| tree | 06a36887c094fbe0def7d6e08304122f52257370 /tests/binary.test | |
| parent | ec111e454d8d0c27ae09daa327636732a5c35164 (diff) | |
| download | tcl-f306b32b6c6df6ac6b9ba0853e3aa130e61c70d0.zip tcl-f306b32b6c6df6ac6b9ba0853e3aa130e61c70d0.tar.gz tcl-f306b32b6c6df6ac6b9ba0853e3aa130e61c70d0.tar.bz2 | |
Add (back) testcases for the compabitiliby macro's (which need TCL_8_API now)
Diffstat (limited to 'tests/binary.test')
| -rw-r--r-- | tests/binary.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/binary.test b/tests/binary.test index d6a8195..299e1e0 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -3048,6 +3048,9 @@ test binary-80.3 {Tcl_GetBytesFromObj} -constraints testbytestring -returnCodes 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)" +test binary-80.5 {Tcl_GetBytesFromObj} -constraints {testbytestring pointerIs64bit deprecated} -body { + testbytestring [string repeat A [expr 2**31]] +} -returnCodes 1 -result "byte sequence length exceeds INT_MAX" # ---------------------------------------------------------------------- # cleanup |