# New Ticket Created by Simon Glover # Please include the string: [perl #15099] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=15099 >
These comments don't seem to be needed any more. Simon --- t/pmc/array.t.old Thu Jul 18 13:44:39 2002 +++ t/pmc/array.t Thu Jul 18 13:45:37 2002 @@ -44,20 +44,20 @@ output_is(<<'CODE', <<'OUTPUT', "Setting new P0, .Array set P0, 1 - set P0[0],-7 # set P0[0], -7 - set I0,P0[0] # set I0, P0[0] + set P0[0],-7 + set I0,P0[0] eq I0,-7,OK_1 print "not " OK_1: print "ok 1\n" - set P0[0],3.7 # set P0[0], 3.7 - set N0,P0[0] # set N0, P0[0] + set P0[0],3.7 + set N0,P0[0] eq N0,3.7,OK_2 print "not " OK_2: print "ok 2\n" - set P0[0],"Buckaroo" # set P0[0], "Buckaroo" - set S0,P0[0] # set S0, P0[0] + set P0[0],"Buckaroo" + set S0,P0[0] eq S0,"Buckaroo",OK_3 print "not " OK_3: print "ok 3\n" --- t/pmc/perlarray.t.old Thu Jul 18 13:44:45 2002 +++ t/pmc/perlarray.t Thu Jul 18 13:47:09 2002 @@ -29,28 +29,28 @@ OUTPUT output_is(<<'CODE', <<'OUTPUT', "set/get by index"); new P0,.PerlArray - set P0[0],3 # set P0[0], 3 - set I1,P0[0] # set I1, P0[0] + set P0[0],3 + set I1,P0[0] print I1 print "\n" set P0,2 - set P0[1],3.7 # set P0[1], 3.7 - set N1,P0[1] # set N1, P0[1] + set P0[1],3.7 + set N1,P0[1] print N1 print "\n" set P0,3 - set P0[2],"hey" # set P0[2], "hey" - set S1,P0[2] # set S1, P0[2] + set P0[2],"hey" + set S1,P0[2] print S1 print "\n" set P0, 4 new P1, .PerlInt set P1, 42 - set P0[3],P1 # set P0[3], P1 - set P2,P0[3] # set S1, P0[3] + set P0[3],P1 + set P2,P0[3] print P2 print "\n" @@ -64,25 +64,25 @@ OUTPUT output_is(<<'CODE', <<'OUTPUT', "same, but with implicit resizing"); new P0,.PerlArray - set P0[0],3 # set P0[0], 3 - set I1,P0[0] # set I1, P0[0] + set P0[0],3 + set I1,P0[0] print I1 print "\n" - set P0[1],3.7 # set P0[1], 3.7 - set N1,P0[1] # set N1, P0[1] + set P0[1],3.7 + set N1,P0[1] print N1 print "\n" - set P0[2],"hey" # set P0[2], "hey" - set S1,P0[2] # set S1, P0[2] + set P0[2],"hey" + set S1,P0[2] print S1 print "\n" new P1, .PerlInt set P1, 42 - set P0[3],P1 # set P0[3], P1 - set P2,P0[3] # set S1, P0[3] + set P0[3],P1 + set P2,P0[3] print P2 print "\n" @@ -132,7 +132,7 @@ output_is(<<'CODE', <<'OUTPUT', "If P"); branch NEXT TR: print "true\n" -NEXT: set P0[0], 1 # set P0[0], 1 +NEXT: set P0[0], 1 if P0, TR2 print "false\n" branch NEXT2 @@ -167,104 +167,104 @@ output_is(<<'CODE', <<'OUTPUT', "Negativ print "not " OK_1: print "ok 1\n" - set P0[0],7 # set P0[0], 7 + set P0[0],7 set I0,P0 eq I0,1,OK_2 print "not " OK_2: print "ok 2\n" - set I0,P0[0] # set I0, P0[0] + set I0,P0[0] eq I0,7,OK_3 print "not " OK_3: print "ok 3\n" - set I0,P0[-1] # set I0, P0[-1] + set I0,P0[-1] eq I0,7,OK_4 print "not " OK_4: print "ok 4\n" - set P0[-1],7 # set P0[-1], 7 + set P0[-1],7 set I0,P0 eq I0,1,OK_5 print "not " OK_5: print "ok 5\n" - set I0,P0[0] # set I0, P0[0] + set I0,P0[0] eq I0,7,OK_6 print "not " OK_6: print "ok 6\n" - set I0,P0[-1] # set I0, P0[-1] + set I0,P0[-1] eq I0,7,OK_7 print "not " OK_7: print "ok 7\n" - set P0[0],7.2 # set P0[0], 7.2 + set P0[0],7.2 set I0,P0 eq I0,1,OK_8 print "not " OK_8: print "ok 8\n" - set N0,P0[0] # set N0, P0[0] + set N0,P0[0] eq N0,7.2,OK_9 print "not " OK_9: print "ok 9\n" - set N0,P0[-1] # set N0, P0[-1] + set N0,P0[-1] eq N0,7.2,OK_10 print "not " OK_10: print "ok 10\n" - set P0[-1],7.2 # set P0[-1], 7.2 + set P0[-1],7.2 set I0,P0 eq I0,1,OK_11 print "not " OK_11: print "ok 11\n" - set N0,P0[0] # set N0, PO[0] + set N0,P0[0] eq N0,7.2,OK_12 print "not " OK_12: print "ok 12\n" - set N0,P0[-1] # set N0, P0[-1] + set N0,P0[-1] eq N0,7.2,OK_13 print "not " OK_13: print "ok 13\n" - set P0[0],"Buckaroo" # set P0[0], "Buckaroo" + set P0[0],"Buckaroo" set I0,P0 eq I0,1,OK_14 print "not " OK_14: print "ok 14\n" - set S0,P0[0] # set S0, P0[0] + set S0,P0[0] eq S0,"Buckaroo",OK_15 print "not " OK_15: print "ok 15\n" - set S0,P0[-1] # set S0, P0[-1] + set S0,P0[-1] eq S0,"Buckaroo",OK_16 print "not " OK_16: print "ok 16\n" - set P0[-1],"Buckaroo" # set P0[-1], "Buckaroo" + set P0[-1],"Buckaroo" set I0,P0 eq I0,1,OK_17 print "not " OK_17: print "ok 17\n" - set S0,P0[0] # set S0, P0[0] + set S0,P0[0] eq S0,"Buckaroo",OK_18 print "not " OK_18: print "ok 18\n" - set S0,P0[-1] # set S0, P0[-1] + set S0,P0[-1] eq S0,"Buckaroo",OK_19 print "not " OK_19: print "ok 19\n"