[svn:parrot] r48768 - trunk/t/op

[bacek at svn.parrot.org]

Author: bacek
Date: Fri Sep  3 00:16:31 2010
New Revision: 48768
URL: https://trac.parrot.org/parrot/changeset/48768

Log:
Add test for #1767.

Modified:
   trunk/t/op/string.t

Modified: trunk/t/op/string.t
==============================================================================
--- trunk/t/op/string.t	Fri Sep  3 00:16:22 2010	(r48767)
+++ trunk/t/op/string.t	Fri Sep  3 00:16:31 2010	(r48768)
@@ -128,6 +128,7 @@
     split_on_empty_string()
     split_on_non_empty_string()
     test_join()
+    test_join_many()
     eq_addr_or_ne_addr()
     test_if_null_s_ic()
     test_upcase()
@@ -1498,6 +1499,21 @@
     is( $S0, "a--b", 'join' )
 .end
 
+.sub 'test_join_many'
+    $P1 = new ['ResizablePMCArray']
+    $I0 = 0
+  loop:
+    unless $I0 < 20000 goto done
+    $P2 = new ['Integer']
+    assign $P2, $I0
+    push $P1, $P2
+    inc $I0
+    goto loop
+  done:
+    $S0 = join ' ', $P1
+    ok("Join of many temporary strings doesn't crash")
+.end
+
 # join: get_string returns a null string --------
 .namespace ["Foo5"]
     .sub get_string :vtable :method