Lines Matching refs:i
21 my $i = 1;
33 printf "ok %d\n",$i++;
52 printf "ok %d\n",$i++;
55 printf "ok %d\n",$i++;
58 printf "ok %d\n",$i++;
61 printf "ok %d\n",$i++;
64 printf "ok %d\n",$i++;
79 printf "ok %d\n",$i++;
82 printf "ok %d\n",$i++;
85 printf "ok %d\n",$i++;
88 printf "ok %d\n",$i++;
91 printf "ok %d\n",$i++;
95 printf "ok %d\n",$i++;
109 printf "ok %d\n",$i++;
112 printf "ok %d\n",$i++;
115 printf "ok %d\n",$i++;
118 printf "ok %d\n",$i++;
122 printf "ok %d\n",$i++;
126 printf "ok %d\n",$i++;
131 printf "ok %d\n",$i++;
148 printf "ok %d\n",$i++;
151 printf "ok %d\n",$i++;
154 printf "ok %d\n",$i++;
157 printf "ok %d\n",$i++;
160 printf "ok %d\n",$i++;
163 printf "ok %d\n",$i++;
167 printf "ok %d\n",$i++;
172 printf "ok %d\n",$i++;
192 printf "ok %d\n",$i++;
195 printf "ok %d\n",$i++;
198 printf "ok %d\n",$i++;
201 printf "ok %d\n",$i++;
204 printf "ok %d\n",$i++;
207 printf "ok %d\n",$i++;
211 printf "ok %d\n",$i++;
216 printf "ok %d\n",$i++;
236 printf "ok %d\n",$i++;
239 printf "ok %d\n",$i++;
242 printf "ok %d\n",$i++;
245 printf "ok %d\n",$i++;
248 printf "ok %d\n",$i++;
251 printf "ok %d\n",$i++;
255 printf "ok %d\n",$i++;
259 printf "ok %d\n",$i++;
264 printf "ok %d\n",$i++;
282 sub tmp_sub_1 { printf "ok %d\n",$i++ }
284 a_sub { printf "ok %d\n",$i++ };
290 printf "ok %d\n",$i++;
303 sub tmp_sub_2 { printf "ok %d\n",$i++ }
309 printf "ok %d\n",$i++;
324 @array = (qw(O K)," ", $i++);
341 @array = (qw(O K)," ", $i++);
343 sub_array { lc shift } ('O', 'K', ' ', $i++);
358 printf "ok %d\n",$i++;
361 printf "ok %d\n",$i++;
372 printf "ok %d\n",$i++;
379 printf "ok %d\n",$i++;
390 printf "ok %d\n",$i++;
391 @{$_[0]} = (qw(ok)," ",$i++,"\n");
402 print "ok ", $i++, "\n";
405 print "ok ", $i++, "\n";
408 print "ok ", $i++, "\n";
420 print "ok ", $i++, "\n";
425 print "ok ", $i++, "\n";
430 print "ok ", $i++, "\n";
435 print "ok ", $i++, "\n";
446 print "ok $i - star FOO\n";
447 }; $i++;
450 print "ok $i - star(FOO)\n";
451 }); $i++;
454 print qq/ok $i - star "FOO"\n/;
455 }; $i++;
458 print qq/ok $i - star("FOO")\n/;
459 }); $i++;
462 print "ok $i - star \$star\n";
463 }; $i++;
466 print "ok $i - star(\$star)\n";
467 }); $i++;
470 print "ok $i - star *FOO\n";
471 }; $i++;
474 print "ok $i - star(*FOO)\n";
475 }); $i++;
478 print "ok $i - star \\*FOO\n";
479 }; $i++;
482 print "ok $i - star(\\*FOO)\n";
483 }); $i++;
486 print "ok $i - star2 FOO, BAR\n";
487 }; $i++;
490 print "ok $i - star2(Bar::BAZ, FOO)\n"
491 }); $i++;
494 print "ok $i - star2 BAR(), FOO\n"
495 }; $i++;
498 print "ok $i - star2(FOO, BAR())\n";
499 }); $i++;
502 print qq/ok $i - star2 "FOO", "BAR"\n/;
503 }; $i++;
506 print qq/ok $i - star2("FOO", "BAR")\n/;
507 }); $i++;
510 print "ok $i - star2 \$star, \$star\n";
511 }; $i++;
514 print "ok $i - star2(\$star, \$star)\n";
515 }); $i++;
518 print "ok $i - star2 *FOO, *BAR\n";
519 }; $i++;
522 print "ok $i - star2(*FOO, *BAR)\n";
523 }); $i++;
527 print "ok $i - star2 \*FOO, \*BAR\n";
528 }; $i++;
532 print "ok $i - star2(\*FOO, \*BAR)\n";
533 }); $i++;
542 sreftest my $sref, $i++;
543 sreftest($helem{$i}, $i++);
544 sreftest $aelem[0], $i++;
555 print "# eval[$eval]\nnot " unless $@ && $@ =~ /(parse|syntax) error/i;
556 print "ok ", $i++, "\n";
561 print "ok ", $i++, "\n";
565 print "ok ", $i++, "\n";
577 print "ok ", $i++, "\n";
579 print "ok ", $i++, "\n";
581 print "ok ", $i++, "\n";
583 print "ok ", $i++, "\n";
585 print "ok ", $i++, "\n";
589 print "ok ", $i++, "\n";
592 print "ok ", $i++, "\n";
595 print "ok ", $i++, "\n";
598 print "ok ", $i++, "\n";
602 print "ok ", $i++, "\n";
613 print "ok ", $i++, "\n";
617 print "ok ", $i++, "\n";
621 print "ok ", $i++, "\n";
625 print "ok ", $i++, "\n";
631 print "ok ", $i++, "\n";
635 print "ok ", $i++, " # TODO Ought to fail, doesn't in 5.8.2\n";