From 071f050107ead4e717562dace5859e799d146ebe Mon Sep 17 00:00:00 2001
From: Peter Cawley <corsix@corsix.org>
Date: Wed, 12 Oct 2016 10:17:29 -0700
Subject: [PATCH] Exercise string concat some more

---
 test/lang/concat.lua | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/test/lang/concat.lua b/test/lang/concat.lua
index 50dd450c99..04d665b2b7 100644
--- a/test/lang/concat.lua
+++ b/test/lang/concat.lua
@@ -99,3 +99,14 @@ do --- Sink into side-exit
   end
   assert(z == "ab200")
 end
+
+do --- Very long strings
+  for i, s in ipairs{"a", "bc", "def"} do
+    for n = 1, 20 do
+      s = s .. s
+    end
+    assert(#s == 2^20*i)
+    assert(s:sub(1, 6) == s:sub(7, 12))
+    assert(s:sub(1, 6) == s:sub(-6, -1))
+  end
+end