diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-01 15:50:02 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-01 15:50:02 (GMT) |
commit | 28e5ec7db6ec8d9730d62d010f1649191bc24d3b (patch) | |
tree | d06ebc558a3ef72384c526cd79523a27ed564cb2 /tests/binary.test | |
parent | b6bc736eee48bdf804113e7d1eb95d7198ed0603 (diff) | |
download | tcl-28e5ec7db6ec8d9730d62d010f1649191bc24d3b.zip tcl-28e5ec7db6ec8d9730d62d010f1649191bc24d3b.tar.gz tcl-28e5ec7db6ec8d9730d62d010f1649191bc24d3b.tar.bz2 |
Add missing "deprecated" constraint
Diffstat (limited to 'tests/binary.test')
-rw-r--r-- | tests/binary.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/binary.test b/tests/binary.test index 2984fec..be8dd10 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -15,6 +15,8 @@ if {"::tcltest" ni [namespace children]} { namespace import -force ::tcltest::* } ::tcltest::loadTestedCommands +source [file join [file dirname [info script]] tcltests.tcl] + catch [list package require -exact tcl::test [info patchlevel]] testConstraint bigEndian [expr {$tcl_platform(byteOrder) eq "bigEndian"}] @@ -3040,7 +3042,7 @@ 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 -constraints pointerIs64bit -body { +test binary-80.5 {Tcl_GetBytesFromObj} -constraints testbytestring -constraints {pointerIs64bit deprecated} -body { testbytestring [string repeat A [expr 2**31]] } -returnCodes 1 -result "byte sequence length exceeds INT_MAX" |