t/op/loopctl.t

41 my $ok;
45   $ok = 0;
51       $ok = 1;
54     $ok = 0;
60     $ok = 0;
63   $ok = 0;
65 cmp_ok($ok,'==',1,'no label on while()');
69   $ok = 0;
76       $ok = $been_in_continue;
79     $ok = 0;
87   $ok = 0;
89 cmp_ok($ok,'==',1,'no label on while() successful next');
93   $ok = 0;
102       $ok = 0;
105     $ok = 0;
113   $ok = $been_in_loop && $been_in_continue;
115 cmp_ok($ok,'==',1,'no label on while() unsuccessful next');
119   $ok = 0;
125       $ok = 0;
128     $ok = 0;
134     $ok = 0;
137   $ok = 1;
139 cmp_ok($ok,'==',1,'no label on while() last');
143   $ok = 0;
149       $ok = 1;
152     $ok = 0;
158     $ok = 0;
161   $ok = 0;
163 cmp_ok($ok,'==',1,'no label on until()');
167   $ok = 0;
174       $ok = $been_in_continue;
177     $ok = 0;
185   $ok = 0;
187 cmp_ok($ok,'==',1,'no label on until() successful next');
191   $ok = 0;
200       $ok = 0;
203     $ok = 0;
211   $ok = $been_in_loop && $been_in_continue;
213 cmp_ok($ok,'==',1,'no label on until() unsuccessful next');
217   $ok = 0;
223       $ok = 0;
226     $ok = 0;
232     $ok = 0;
235   $ok = 1;
237 cmp_ok($ok,'==',1,'no label on until() last');
241   $ok = 0;
246       $ok = 1;
249     $ok = 0;
255     $ok = 0;
258   $ok = 0;
260 cmp_ok($ok,'==',1,'no label on for(@array)');
264   $ok = 0;
270       $ok = $been_in_continue;
273     $ok = 0;
281   $ok = 0;
283 cmp_ok($ok,'==',1,'no label on for(@array) successful next');
287   $ok = 0;
295       $ok = 0;
298     $ok = 0;
306   $ok = $been_in_loop && $been_in_continue;
308 cmp_ok($ok,'==',1,'no label on for(@array) unsuccessful next');
312   $ok = 0;
317       $ok = 0;
320     $ok = 0;
326     $ok=0;
329   $ok = 1;
331 cmp_ok($ok,'==',1,'no label on for(@array) last');
335   $ok = 0;
339       $ok = 1;
342     $ok = 0;
348   $ok = 0;
350 cmp_ok($ok,'==',1,'no label on for(;;)');
354   $ok = 0;
358       $ok = 1;
361     $ok = 0;
365   $ok = 0;
367 cmp_ok($ok,'==',1,'no label on for(;;) successful next');
371   $ok = 0;
378       $ok = 0;
381     $ok = 0;
386   $ok = $been_in_loop;
388 cmp_ok($ok,'==',1,'no label on for(;;) unsuccessful next');
392   $ok = 0;
396       $ok = 0;
399     $ok = 0;
404   $ok = 1;
406 cmp_ok($ok,'==',1,'no label on for(;;) last');
410   $ok = 0;
415       $ok = 1;
418     $ok = 0;
425     $ok = 0;
428   $ok = 0;
430 cmp_ok($ok,'==',1,'no label on bare block');
434   $ok = 0;
440     $ok = 1;
443   $ok = 0;
445 cmp_ok($ok,'==',1,'no label on bare block next');
449   $ok = 0;
455     $ok = 0;
458   $ok = 1;
460 cmp_ok($ok,'==',1,'no label on bare block last');
466   $ok = 0;
472       $ok = 1;
475     $ok = 0;
481     $ok = 0;
484   $ok = 0;
486 cmp_ok($ok,'==',1,'label on while()');
490   $ok = 0;
497       $ok = $been_in_continue;
500     $ok = 0;
508   $ok = 0;
510 cmp_ok($ok,'==',1,'label on while() successful next');
514   $ok = 0;
523       $ok = 0;
526     $ok = 0;
534   $ok = $been_in_loop && $been_in_continue;
536 cmp_ok($ok,'==',1,'label on while() unsuccessful next');
540   $ok = 0;
546       $ok = 0;
549     $ok = 0;
555     $ok = 0;
558   $ok = 1;
560 cmp_ok($ok,'==',1,'label on while() last');
564   $ok = 0;
570       $ok = 1;
573     $ok = 0;
579     $ok = 0;
582   $ok = 0;
584 cmp_ok($ok,'==',1,'label on until()');
588   $ok = 0;
595       $ok = $been_in_continue;
598     $ok = 0;
606   $ok = 0;
608 cmp_ok($ok,'==',1,'label on until() successful next');
612   $ok = 0;
621       $ok = 0;
624     $ok = 0;
632   $ok = $been_in_loop && $been_in_continue;
634 cmp_ok($ok,'==',1,'label on until() unsuccessful next');
638   $ok = 0;
644       $ok = 0;
647     $ok = 0;
653     $ok = 0;
656   $ok = 1;
658 cmp_ok($ok,'==',1,'label on until() last');
662   $ok = 0;
667       $ok = 1;
670     $ok = 0;
676     $ok = 0;
679   $ok = 0;
681 cmp_ok($ok,'==',1,'label on for(@array)');
685   $ok = 0;
691       $ok = $been_in_continue;
694     $ok = 0;
702   $ok = 0;
704 cmp_ok($ok,'==',1,'label on for(@array) successful next');
708   $ok = 0;
716       $ok = 0;
719     $ok = 0;
727   $ok = $been_in_loop && $been_in_continue;
729 cmp_ok($ok,'==',1,'label on for(@array) unsuccessful next');
733   $ok = 0;
738       $ok = 0;
741     $ok = 0;
747     $ok=0;
750   $ok = 1;
752 cmp_ok($ok,'==',1,'label on for(@array) last');
756   $ok = 0;
760       $ok = 1;
763     $ok = 0;
769   $ok = 0;
771 cmp_ok($ok,'==',1,'label on for(;;)');
775   $ok = 0;
779       $ok = 1;
782     $ok = 0;
786   $ok = 0;
788 cmp_ok($ok,'==',1,'label on for(;;) successful next');
792   $ok = 0;
799       $ok = 0;
802     $ok = 0;
807   $ok = $been_in_loop;
809 cmp_ok($ok,'==',1,'label on for(;;) unsuccessful next');
813   $ok = 0;
817       $ok = 0;
820     $ok = 0;
825   $ok = 1;
827 cmp_ok($ok,'==',1,'label on for(;;) last');
831   $ok = 0;
836       $ok = 1;
839     $ok = 0;
846     $ok = 0;
849   $ok = 0;
851 cmp_ok($ok,'==',1,'label on bare block');
855   $ok = 0;
861     $ok = 1;
864   $ok = 0;
866 cmp_ok($ok,'==',1,'label on bare block next');
870   $ok = 0;
876     $ok = 0;
879   $ok = 1;
881 cmp_ok($ok,'==',1,'label on bare block last');
884     $ok = 0;
887       $ok = 0;
889         $ok = 0;
894           $ok = 0;
899         $ok = 1;
902       $ok = 0;
905 cmp_ok($ok,'==',1,'nested constructs');
910     $ok = 1;
912     $ok = 0;
914 cmp_ok($ok,'==',1,'dynamically scoped label');
919     $ok = 1;
921     $ok = 0;
923 cmp_ok($ok,'==',1,'dynamically scoped');
1007     ok(!$fail, "perl 112316: Labels with the same prefix don't get mixed up.");