# New Ticket Created by Steve Fink # Please include the string: [perl #16854] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16854 >
I forget what this was testing, but it uncovered a problem at some point in the past. -- attachment 1 ------------------------------------------------------ url: http://rt.perl.org/rt2/attach/36042/29163/5c7f19/string-test.patch
Index: t/op/string.t =================================================================== RCS file: /cvs/public/parrot/t/op/string.t,v retrieving revision 1.30 diff -p -u -r1.30 string.t --- t/op/string.t 21 Aug 2002 08:02:56 -0000 1.30 +++ t/op/string.t 29 Aug 2002 19:44:27 -0000 @@ -1,6 +1,6 @@ #! perl -w -use Parrot::Test tests => 90; +use Parrot::Test tests => 91; use Test::More; output_is( <<'CODE', <<OUTPUT, "set_s_s|sc" ); @@ -479,6 +479,28 @@ CODE abcxyzghijk xyz OUTPUT + +output_is( <<'CODE', "all ok\n", "stress concat" ); + set I0, 1000 + set S0, "michael" +LOOP: + set S2, I0 + concat S1, S0, S2 + concat S3, "mic", "hael" + concat S3, S3, S2 + eq S1, S3, BOTTOM + print "Failed: " + print S1 + print " ne " + print S3 + print "\n" + end +BOTTOM: + sub I0, I0, 1 + ne I0, 0, LOOP + print "all ok\n" + end +CODE output_is( <<'CODE', '<><', "concat_s_s|sc, null onto null" ); print "<>"