# 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"
