t/op/loopctl.t

18 # Loops of type (b) don't allow for next/last/redo style
26 # All these tests rely on "last LABEL"
52       last TEST1;
57     last TEST1;
61     last TEST1;
77       last TEST2;
82     last TEST2;
103       last TEST3;
108     last TEST3;
126       last TEST4;
130     last;
131     last TEST4;
135     last TEST4;
139 cmp_ok($ok,'==',1,'no label on while() last');
150       last TEST5;
155     last TEST5;
159     last TEST5;
175       last TEST6;
180     last TEST6;
201       last TEST7;
206     last TEST7;
224       last TEST8;
228     last;
229     last TEST8;
233     last TEST8;
237 cmp_ok($ok,'==',1,'no label on until() last');
247       last TEST9;
252     last TEST9;
256     last TEST9;
271       last TEST10;
276     last TEST10;
296       last TEST11;
301     last TEST11;
318       last TEST12;
322     last;
323     last TEST12;
327     last TEST12;
331 cmp_ok($ok,'==',1,'no label on for(@array) last');
340       last TEST13;
346     last TEST13;
359       last TEST14;
363     last TEST14;
379       last TEST15;
384     last TEST15;
394   for(my $first_time = 1; 1; last TEST16) {
397       last TEST16;
401     last;
402     last TEST16;
406 cmp_ok($ok,'==',1,'no label on for(;;) last');
416       last TEST17;
422     last TEST17;
426     last TEST17;
437     last TEST18;
441     last TEST18;
451     last;
452     last TEST19;
456     last TEST19;
460 cmp_ok($ok,'==',1,'no label on bare block last');
473       last TEST20;
478     last TEST20;
482     last TEST20;
498       last TEST21;
503     last TEST21;
524       last TEST22;
529     last TEST22;
547       last TEST23;
551     last LABEL23;
552     last TEST23;
556     last TEST23;
560 cmp_ok($ok,'==',1,'label on while() last');
571       last TEST24;
576     last TEST24;
580     last TEST24;
596       last TEST25;
601     last TEST25;
622       last TEST26;
627     last TEST26;
645       last TEST27;
649     last LABEL27;
650     last TEST27;
654     last TEST8;
658 cmp_ok($ok,'==',1,'label on until() last');
668       last TEST28;
673     last TEST28;
677     last TEST28;
692       last TEST29;
697     last TEST29;
717       last TEST30;
722     last TEST30;
739       last TEST31;
743     last LABEL31;
744     last TEST31;
748     last TEST31;
752 cmp_ok($ok,'==',1,'label on for(@array) last');
761       last TEST32;
767     last TEST32;
780       last TEST33;
784     last TEST33;
800       last TEST34;
805     last TEST34;
815   LABEL35: for(my $first_time = 1; 1; last TEST16) {
818       last TEST35;
822     last LABEL35;
823     last TEST35;
827 cmp_ok($ok,'==',1,'label on for(;;) last');
837       last TEST36;
843     last TEST36;
847     last TEST36;
858     last TEST37;
862     last TEST37;
872     last LABEL38;
873     last TEST38;
877     last TEST38;
881 cmp_ok($ok,'==',1,'label on bare block last');
895           last TEST39;
900         last TEST39;
907 sub test_last_label { last TEST40 }
916 sub test_last { last }
954 	last;
961 	last;
967 	last;
1003             last CATCH;
1077         eval { last $label };
1078         fail("last with non-constant label");
1079         last last_113684;
1081     pass("last with non-constant label");
1100             pass("redo with non-constant label"); last redo_113684
1113         push @a, last;
1116 is @a, 0, 'push @a, last;  does not push';
1119 is do{{&{sub{"Just another Perl hacker,\n"}},last}}, undef,
1120   'last returns nothing';