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"
49       last TEST1;
54     last TEST1;
58     last TEST1;
74       last TEST2;
79     last TEST2;
100       last TEST3;
105     last TEST3;
114 TEST4: { # last
123       last TEST4;
127     last;
128     last TEST4;
132     last TEST4;
150       last TEST5;
155     last TEST5;
159     last TEST5;
175       last TEST6;
180     last TEST6;
201       last TEST7;
206     last TEST7;
215 TEST8: { # last
224       last TEST8;
228     last;
229     last TEST8;
233     last TEST8;
249       last TEST9;
254     last TEST9;
258     last TEST9;
273       last TEST10;
278     last TEST10;
298       last TEST11;
303     last TEST11;
312 TEST12: { # last
320       last TEST12;
324     last;
325     last TEST12;
329     last TEST12;
344       last TEST13;
350     last TEST13;
363       last TEST14;
367     last TEST14;
383       last TEST15;
388     last TEST15;
394 TEST16: { # last
398   for(my $first_time = 1; 1; last TEST16) {
401       last TEST16;
405     last;
406     last TEST16;
422       last TEST17;
428     last TEST17;
432     last TEST17;
443     last TEST18;
447     last TEST18;
453 TEST19: { # last
457     last;
458     last TEST19;
462     last TEST19;
482       last TEST20;
487     last TEST20;
491     last TEST20;
507       last TEST21;
512     last TEST21;
533       last TEST22;
538     last TEST22;
547 TEST23: { # last
556       last TEST23;
560     last LABEL23;
561     last TEST23;
565     last TEST23;
583       last TEST24;
588     last TEST24;
592     last TEST24;
608       last TEST25;
613     last TEST25;
634       last TEST26;
639     last TEST26;
648 TEST27: { # last
657       last TEST27;
661     last LABEL27;
662     last TEST27;
666     last TEST8;
682       last TEST28;
687     last TEST28;
691     last TEST28;
706       last TEST29;
711     last TEST29;
731       last TEST30;
736     last TEST30;
745 TEST31: { # last
753       last TEST31;
757     last LABEL31;
758     last TEST31;
762     last TEST31;
777       last TEST32;
783     last TEST32;
796       last TEST33;
800     last TEST33;
816       last TEST34;
821     last TEST34;
827 TEST35: { # last
831   LABEL35: for(my $first_time = 1; 1; last TEST16) {
834       last TEST35;
838     last LABEL35;
839     last TEST35;
855       last TEST36;
861     last TEST36;
865     last TEST36;
876     last TEST37;
880     last TEST37;
886 TEST38: { # last
890     last LABEL38;
891     last TEST38;
895     last TEST38;
915           last TEST39;
920         last TEST39;
930 sub test_last_label { last TEST40 }
939 sub test_last { last }