Add some testing of Tcl_SetByteArrayLength().

1 files changed, 11 insertions, 0 deletions

diff --git a/tests/binary.test b/tests/binary.test
index 8c1dedb..92fb648 100644
--- a/tests/binary.test
+++ b/tests/binary.test
@@ -2889,6 +2889,17 @@ test binary-76.2 {binary string appending growth algorithm} win {
     # Append to it
     string length [append str [binary format a* foo]]
 } 3
+
+testConstraint testsetbytearraylength \
+		[expr {"testsetbytearraylength" in [info commands]}]
+
+test binary-77.1 {Tcl_SetByteArrayLength} testsetbytearraylength {
+    testsetbytearraylength [string cat A B C] 1
+} A
+test binary-77.2 {Tcl_SetByteArrayLength} testsetbytearraylength {
+    testsetbytearraylength [string cat \u0141 B C] 1
+} A
+
 
 # ----------------------------------------------------------------------
 # cleanup