diff options
Diffstat (limited to 'tests/binary.test')
-rw-r--r-- | tests/binary.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/binary.test b/tests/binary.test index e77dbdd..4e0944b 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -2918,6 +2918,18 @@ test binary-78.1 {unicode (out of BMP) to byte-array conversion, bug-[bd94500678 set str {} } -result * -match glob -returnCodes error + +testConstraint testsetbytearraylength \ + [expr {"testsetbytearraylength" in [info commands]}] + +test binary-79.1 {Tcl_SetByteArrayLength} testsetbytearraylength { + testsetbytearraylength [string cat A B C] 1 +} A +test binary-79.2 {Tcl_SetByteArrayLength} testsetbytearraylength { + testsetbytearraylength [string cat \u0141 B C] 1 +} A + + # ---------------------------------------------------------------------- # cleanup |