diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-13 11:15:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-13 11:15:46 (GMT) |
| commit | f285f8aecc735797d5eccc386408a685688354fe (patch) | |
| tree | ee6db373c1a507ae8b563f62f2ec5b1f497c61b3 /tests/binary.test | |
| parent | 55e4ded8d401ba0592671524d13fce2728da1cc7 (diff) | |
| parent | 49b167a3881644c6aee6b73d87e4edd13a50ce29 (diff) | |
| download | tcl-f285f8aecc735797d5eccc386408a685688354fe.zip tcl-f285f8aecc735797d5eccc386408a685688354fe.tar.gz tcl-f285f8aecc735797d5eccc386408a685688354fe.tar.bz2 | |
Merge trunk
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 |