[perl #15099] [PATCH] Remove redundant comments in test suite

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

• [perl #15099] [PATCH] Remove redundant comments in test suite by Tom Hughes
• [perl #15099] [PATCH] Remove redundant comments in test suite by Simon Glover