summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-10-31 14:17:31 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-10-31 14:17:31 (GMT)
commit1cb5e0af9770c565d370fbb5cf713af0d1f561de (patch)
treeb8b587923edd4e64f140f66dbaf7d760a6eaca34
parent03ab4276c7bc08d114ba0be1e1ef9b1749d5c087 (diff)
downloadtcl-1cb5e0af9770c565d370fbb5cf713af0d1f561de.zip
tcl-1cb5e0af9770c565d370fbb5cf713af0d1f561de.tar.gz
tcl-1cb5e0af9770c565d370fbb5cf713af0d1f561de.tar.bz2
Coverage tests for INST_STR_CONCAT1 byterarray ops.
-rw-r--r--tests/binary.test13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/binary.test b/tests/binary.test
index 40b1315..7738f69 100644
--- a/tests/binary.test
+++ b/tests/binary.test
@@ -2837,6 +2837,19 @@ test binary-76.2 {binary string appending growth algorithm} win {
# Append to it
string length [append str [binary format a* foo]]
} 3
+
+test binary-77.1 {string cat ops on all bytearrays} {
+ apply {{a b} {
+ return [binary format H* $a][binary format H* $b]
+ }} ab cd
+} [binary format H* abcd]
+test binary-77.2 {string cat ops on all bytearrays} {
+ apply {{a b} {
+ set one [binary format H* $a]
+ return $one[binary format H* $b]
+ }} ab cd
+} [binary format H* abcd]
+
# ----------------------------------------------------------------------
# cleanup