Add missing "deprecated" constraint

tcltk · May 1, 2023 · 3649039 · 3649039
1 parent 3b8da8d
commit 3649039
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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"