Perl_op_sibling_splice(0 remove dead code
[perl.git] / t / op / loopctl.t
1 #!./perl
2
3 # We have the following types of loop:
4 #
5 # 1a)  while(A) {B}
6 # 1b)  B while A;
7 #
8 # 2a)  until(A) {B}
9 # 2b)  B until A;
10 #
11 # 3a)  for(@A)  {B}
12 # 3b)  B for A;
13 #
14 # 4a)  for (A;B;C) {D}
15 #
16 # 5a)  { A }        # a bare block is a loop which runs once
17 #
18 # Loops of type (b) don't allow for next/last/redo style
19 #  control, so we ignore them here. Type (a) loops can
20 #  all be labelled, so there are ten possibilities (each
21 #  of 5 types, labelled/unlabelled). We therefore need
22 #  thirty tests to try the three control statements against
23 #  the ten types of loop. For the first four types it's useful
24 #  to distinguish the case where next re-iterates from the case
25 #  where it leaves the loop. That makes 38.
26 # All these tests rely on "last LABEL"
27 #  so if they've *all* failed, maybe you broke that...
28 #
29 # These tests are followed by an extra test of nested loops.
30 # Feel free to add more here.
31 #
32 #  -- .robin. <robin@kitsite.com>  2001-03-13
33 BEGIN {
34     chdir 't' if -d 't';
35     require "./test.pl";
36     set_up_inc(qw(. ../lib));
37 }
38
39 plan( tests => 67 );
40
41 my $ok;
42
43 TEST1: {
44
45   $ok = 0;
46
47   my $x = 1;
48   my $first_time = 1;
49   while($x--) {
50     if (!$first_time) {
51       $ok = 1;
52       last TEST1;
53     }
54     $ok = 0;
55     $first_time = 0;
56     redo;
57     last TEST1;
58   }
59   continue {
60     $ok = 0;
61     last TEST1;
62   }
63   $ok = 0;
64 }
65 cmp_ok($ok,'==',1,'no label on while()');
66
67 TEST2: {
68
69   $ok = 0;
70
71   my $x = 2;
72   my $first_time = 1;
73   my $been_in_continue = 0;
74   while($x--) {
75     if (!$first_time) {
76       $ok = $been_in_continue;
77       last TEST2;
78     }
79     $ok = 0;
80     $first_time = 0;
81     next;
82     last TEST2;
83   }
84   continue {
85     $been_in_continue = 1;
86   }
87   $ok = 0;
88 }
89 cmp_ok($ok,'==',1,'no label on while() successful next');
90
91 TEST3: {
92
93   $ok = 0;
94
95   my $x = 1;
96   my $first_time = 1;
97   my $been_in_loop = 0;
98   my $been_in_continue = 0;
99   while($x--) {
100     $been_in_loop = 1;
101     if (!$first_time) {
102       $ok = 0;
103       last TEST3;
104     }
105     $ok = 0;
106     $first_time = 0;
107     next;
108     last TEST3;
109   }
110   continue {
111     $been_in_continue = 1;
112   }
113   $ok = $been_in_loop && $been_in_continue;
114 }
115 cmp_ok($ok,'==',1,'no label on while() unsuccessful next');
116
117 TEST4: {
118
119   $ok = 0;
120
121   my $x = 1;
122   my $first_time = 1;
123   while($x++) {
124     if (!$first_time) {
125       $ok = 0;
126       last TEST4;
127     }
128     $ok = 0;
129     $first_time = 0;
130     last;
131     last TEST4;
132   }
133   continue {
134     $ok = 0;
135     last TEST4;
136   }
137   $ok = 1;
138 }
139 cmp_ok($ok,'==',1,'no label on while() last');
140
141 TEST5: {
142
143   $ok = 0;
144
145   my $x = 0;
146   my $first_time = 1;
147   until($x++) {
148     if (!$first_time) {
149       $ok = 1;
150       last TEST5;
151     }
152     $ok = 0;
153     $first_time = 0;
154     redo;
155     last TEST5;
156   }
157   continue {
158     $ok = 0;
159     last TEST5;
160   }
161   $ok = 0;
162 }
163 cmp_ok($ok,'==',1,'no label on until()');
164
165 TEST6: {
166
167   $ok = 0;
168
169   my $x = 0;
170   my $first_time = 1;
171   my $been_in_continue = 0;
172   until($x++ >= 2) {
173     if (!$first_time) {
174       $ok = $been_in_continue;
175       last TEST6;
176     }
177     $ok = 0;
178     $first_time = 0;
179     next;
180     last TEST6;
181   }
182   continue {
183     $been_in_continue = 1;
184   }
185   $ok = 0;
186 }
187 cmp_ok($ok,'==',1,'no label on until() successful next');
188
189 TEST7: {
190
191   $ok = 0;
192
193   my $x = 0;
194   my $first_time = 1;
195   my $been_in_loop = 0;
196   my $been_in_continue = 0;
197   until($x++) {
198     $been_in_loop = 1;
199     if (!$first_time) {
200       $ok = 0;
201       last TEST7;
202     }
203     $ok = 0;
204     $first_time = 0;
205     next;
206     last TEST7;
207   }
208   continue {
209     $been_in_continue = 1;
210   }
211   $ok = $been_in_loop && $been_in_continue;
212 }
213 cmp_ok($ok,'==',1,'no label on until() unsuccessful next');
214
215 TEST8: {
216
217   $ok = 0;
218
219   my $x = 0;
220   my $first_time = 1;
221   until($x++ == 10) {
222     if (!$first_time) {
223       $ok = 0;
224       last TEST8;
225     }
226     $ok = 0;
227     $first_time = 0;
228     last;
229     last TEST8;
230   }
231   continue {
232     $ok = 0;
233     last TEST8;
234   }
235   $ok = 1;
236 }
237 cmp_ok($ok,'==',1,'no label on until() last');
238
239 TEST9: {
240
241   $ok = 0;
242
243   my $first_time = 1;
244   for(1) {
245     if (!$first_time) {
246       $ok = 1;
247       last TEST9;
248     }
249     $ok = 0;
250     $first_time = 0;
251     redo;
252     last TEST9;
253   }
254   continue {
255     $ok = 0;
256     last TEST9;
257   }
258   $ok = 0;
259 }
260 cmp_ok($ok,'==',1,'no label on for(@array)');
261
262 TEST10: {
263
264   $ok = 0;
265
266   my $first_time = 1;
267   my $been_in_continue = 0;
268   for(1,2) {
269     if (!$first_time) {
270       $ok = $been_in_continue;
271       last TEST10;
272     }
273     $ok = 0;
274     $first_time = 0;
275     next;
276     last TEST10;
277   }
278   continue {
279     $been_in_continue = 1;
280   }
281   $ok = 0;
282 }
283 cmp_ok($ok,'==',1,'no label on for(@array) successful next');
284
285 TEST11: {
286
287   $ok = 0;
288
289   my $first_time = 1;
290   my $been_in_loop = 0;
291   my $been_in_continue = 0;
292   for(1) {
293     $been_in_loop = 1;
294     if (!$first_time) {
295       $ok = 0;
296       last TEST11;
297     }
298     $ok = 0;
299     $first_time = 0;
300     next;
301     last TEST11;
302   }
303   continue {
304     $been_in_continue = 1;
305   }
306   $ok = $been_in_loop && $been_in_continue;
307 }
308 cmp_ok($ok,'==',1,'no label on for(@array) unsuccessful next');
309
310 TEST12: {
311
312   $ok = 0;
313
314   my $first_time = 1;
315   for(1..10) {
316     if (!$first_time) {
317       $ok = 0;
318       last TEST12;
319     }
320     $ok = 0;
321     $first_time = 0;
322     last;
323     last TEST12;
324   }
325   continue {
326     $ok=0;
327     last TEST12;
328   }
329   $ok = 1;
330 }
331 cmp_ok($ok,'==',1,'no label on for(@array) last');
332
333 TEST13: {
334
335   $ok = 0;
336
337   for(my $first_time = 1; 1;) {
338     if (!$first_time) {
339       $ok = 1;
340       last TEST13;
341     }
342     $ok = 0;
343     $first_time=0;
344
345     redo;
346     last TEST13;
347   }
348   $ok = 0;
349 }
350 cmp_ok($ok,'==',1,'no label on for(;;)');
351
352 TEST14: {
353
354   $ok = 0;
355
356   for(my $first_time = 1; 1; $first_time=0) {
357     if (!$first_time) {
358       $ok = 1;
359       last TEST14;
360     }
361     $ok = 0;
362     next;
363     last TEST14;
364   }
365   $ok = 0;
366 }
367 cmp_ok($ok,'==',1,'no label on for(;;) successful next');
368
369 TEST15: {
370
371   $ok = 0;
372
373   my $x=1;
374   my $been_in_loop = 0;
375   for(my $first_time = 1; $x--;) {
376     $been_in_loop = 1;
377     if (!$first_time) {
378       $ok = 0;
379       last TEST15;
380     }
381     $ok = 0;
382     $first_time = 0;
383     next;
384     last TEST15;
385   }
386   $ok = $been_in_loop;
387 }
388 cmp_ok($ok,'==',1,'no label on for(;;) unsuccessful next');
389
390 TEST16: {
391
392   $ok = 0;
393
394   for(my $first_time = 1; 1; last TEST16) {
395     if (!$first_time) {
396       $ok = 0;
397       last TEST16;
398     }
399     $ok = 0;
400     $first_time = 0;
401     last;
402     last TEST16;
403   }
404   $ok = 1;
405 }
406 cmp_ok($ok,'==',1,'no label on for(;;) last');
407
408 TEST17: {
409
410   $ok = 0;
411   my $first_time = 1;
412
413   {
414     if (!$first_time) {
415       $ok = 1;
416       last TEST17;
417     }
418     $ok = 0;
419     $first_time=0;
420
421     redo;
422     last TEST17;
423   }
424   continue {
425     $ok = 0;
426     last TEST17;
427   }
428   $ok = 0;
429 }
430 cmp_ok($ok,'==',1,'no label on bare block');
431
432 TEST18: {
433
434   $ok = 0;
435   {
436     next;
437     last TEST18;
438   }
439   continue {
440     $ok = 1;
441     last TEST18;
442   }
443   $ok = 0;
444 }
445 cmp_ok($ok,'==',1,'no label on bare block next');
446
447 TEST19: {
448
449   $ok = 0;
450   {
451     last;
452     last TEST19;
453   }
454   continue {
455     $ok = 0;
456     last TEST19;
457   }
458   $ok = 1;
459 }
460 cmp_ok($ok,'==',1,'no label on bare block last');
461
462 ### Now do it all again with labels
463
464 TEST20: {
465
466   $ok = 0;
467
468   my $x = 1;
469   my $first_time = 1;
470   LABEL20: while($x--) {
471     if (!$first_time) {
472       $ok = 1;
473       last TEST20;
474     }
475     $ok = 0;
476     $first_time = 0;
477     redo LABEL20;
478     last TEST20;
479   }
480   continue {
481     $ok = 0;
482     last TEST20;
483   }
484   $ok = 0;
485 }
486 cmp_ok($ok,'==',1,'label on while()');
487
488 TEST21: {
489
490   $ok = 0;
491
492   my $x = 2;
493   my $first_time = 1;
494   my $been_in_continue = 0;
495   LABEL21: while($x--) {
496     if (!$first_time) {
497       $ok = $been_in_continue;
498       last TEST21;
499     }
500     $ok = 0;
501     $first_time = 0;
502     next LABEL21;
503     last TEST21;
504   }
505   continue {
506     $been_in_continue = 1;
507   }
508   $ok = 0;
509 }
510 cmp_ok($ok,'==',1,'label on while() successful next');
511
512 TEST22: {
513
514   $ok = 0;
515
516   my $x = 1;
517   my $first_time = 1;
518   my $been_in_loop = 0;
519   my $been_in_continue = 0;
520   LABEL22: while($x--) {
521     $been_in_loop = 1;
522     if (!$first_time) {
523       $ok = 0;
524       last TEST22;
525     }
526     $ok = 0;
527     $first_time = 0;
528     next LABEL22;
529     last TEST22;
530   }
531   continue {
532     $been_in_continue = 1;
533   }
534   $ok = $been_in_loop && $been_in_continue;
535 }
536 cmp_ok($ok,'==',1,'label on while() unsuccessful next');
537
538 TEST23: {
539
540   $ok = 0;
541
542   my $x = 1;
543   my $first_time = 1;
544   LABEL23: while($x++) {
545     if (!$first_time) {
546       $ok = 0;
547       last TEST23;
548     }
549     $ok = 0;
550     $first_time = 0;
551     last LABEL23;
552     last TEST23;
553   }
554   continue {
555     $ok = 0;
556     last TEST23;
557   }
558   $ok = 1;
559 }
560 cmp_ok($ok,'==',1,'label on while() last');
561
562 TEST24: {
563
564   $ok = 0;
565
566   my $x = 0;
567   my $first_time = 1;
568   LABEL24: until($x++) {
569     if (!$first_time) {
570       $ok = 1;
571       last TEST24;
572     }
573     $ok = 0;
574     $first_time = 0;
575     redo LABEL24;
576     last TEST24;
577   }
578   continue {
579     $ok = 0;
580     last TEST24;
581   }
582   $ok = 0;
583 }
584 cmp_ok($ok,'==',1,'label on until()');
585
586 TEST25: {
587
588   $ok = 0;
589
590   my $x = 0;
591   my $first_time = 1;
592   my $been_in_continue = 0;
593   LABEL25: until($x++ >= 2) {
594     if (!$first_time) {
595       $ok = $been_in_continue;
596       last TEST25;
597     }
598     $ok = 0;
599     $first_time = 0;
600     next LABEL25;
601     last TEST25;
602   }
603   continue {
604     $been_in_continue = 1;
605   }
606   $ok = 0;
607 }
608 cmp_ok($ok,'==',1,'label on until() successful next');
609
610 TEST26: {
611
612   $ok = 0;
613
614   my $x = 0;
615   my $first_time = 1;
616   my $been_in_loop = 0;
617   my $been_in_continue = 0;
618   LABEL26: until($x++) {
619     $been_in_loop = 1;
620     if (!$first_time) {
621       $ok = 0;
622       last TEST26;
623     }
624     $ok = 0;
625     $first_time = 0;
626     next LABEL26;
627     last TEST26;
628   }
629   continue {
630     $been_in_continue = 1;
631   }
632   $ok = $been_in_loop && $been_in_continue;
633 }
634 cmp_ok($ok,'==',1,'label on until() unsuccessful next');
635
636 TEST27: {
637
638   $ok = 0;
639
640   my $x = 0;
641   my $first_time = 1;
642   LABEL27: until($x++ == 10) {
643     if (!$first_time) {
644       $ok = 0;
645       last TEST27;
646     }
647     $ok = 0;
648     $first_time = 0;
649     last LABEL27;
650     last TEST27;
651   }
652   continue {
653     $ok = 0;
654     last TEST8;
655   }
656   $ok = 1;
657 }
658 cmp_ok($ok,'==',1,'label on until() last');
659
660 TEST28: {
661
662   $ok = 0;
663
664   my $first_time = 1;
665   LABEL28: for(1) {
666     if (!$first_time) {
667       $ok = 1;
668       last TEST28;
669     }
670     $ok = 0;
671     $first_time = 0;
672     redo LABEL28;
673     last TEST28;
674   }
675   continue {
676     $ok = 0;
677     last TEST28;
678   }
679   $ok = 0;
680 }
681 cmp_ok($ok,'==',1,'label on for(@array)');
682
683 TEST29: {
684
685   $ok = 0;
686
687   my $first_time = 1;
688   my $been_in_continue = 0;
689   LABEL29: for(1,2) {
690     if (!$first_time) {
691       $ok = $been_in_continue;
692       last TEST29;
693     }
694     $ok = 0;
695     $first_time = 0;
696     next LABEL29;
697     last TEST29;
698   }
699   continue {
700     $been_in_continue = 1;
701   }
702   $ok = 0;
703 }
704 cmp_ok($ok,'==',1,'label on for(@array) successful next');
705
706 TEST30: {
707
708   $ok = 0;
709
710   my $first_time = 1;
711   my $been_in_loop = 0;
712   my $been_in_continue = 0;
713   LABEL30: for(1) {
714     $been_in_loop = 1;
715     if (!$first_time) {
716       $ok = 0;
717       last TEST30;
718     }
719     $ok = 0;
720     $first_time = 0;
721     next LABEL30;
722     last TEST30;
723   }
724   continue {
725     $been_in_continue = 1;
726   }
727   $ok = $been_in_loop && $been_in_continue;
728 }
729 cmp_ok($ok,'==',1,'label on for(@array) unsuccessful next');
730
731 TEST31: {
732
733   $ok = 0;
734
735   my $first_time = 1;
736   LABEL31: for(1..10) {
737     if (!$first_time) {
738       $ok = 0;
739       last TEST31;
740     }
741     $ok = 0;
742     $first_time = 0;
743     last LABEL31;
744     last TEST31;
745   }
746   continue {
747     $ok=0;
748     last TEST31;
749   }
750   $ok = 1;
751 }
752 cmp_ok($ok,'==',1,'label on for(@array) last');
753
754 TEST32: {
755
756   $ok = 0;
757
758   LABEL32: for(my $first_time = 1; 1;) {
759     if (!$first_time) {
760       $ok = 1;
761       last TEST32;
762     }
763     $ok = 0;
764     $first_time=0;
765
766     redo LABEL32;
767     last TEST32;
768   }
769   $ok = 0;
770 }
771 cmp_ok($ok,'==',1,'label on for(;;)');
772
773 TEST33: {
774
775   $ok = 0;
776
777   LABEL33: for(my $first_time = 1; 1; $first_time=0) {
778     if (!$first_time) {
779       $ok = 1;
780       last TEST33;
781     }
782     $ok = 0;
783     next LABEL33;
784     last TEST33;
785   }
786   $ok = 0;
787 }
788 cmp_ok($ok,'==',1,'label on for(;;) successful next');
789
790 TEST34: {
791
792   $ok = 0;
793
794   my $x=1;
795   my $been_in_loop = 0;
796   LABEL34: for(my $first_time = 1; $x--;) {
797     $been_in_loop = 1;
798     if (!$first_time) {
799       $ok = 0;
800       last TEST34;
801     }
802     $ok = 0;
803     $first_time = 0;
804     next LABEL34;
805     last TEST34;
806   }
807   $ok = $been_in_loop;
808 }
809 cmp_ok($ok,'==',1,'label on for(;;) unsuccessful next');
810
811 TEST35: {
812
813   $ok = 0;
814
815   LABEL35: for(my $first_time = 1; 1; last TEST16) {
816     if (!$first_time) {
817       $ok = 0;
818       last TEST35;
819     }
820     $ok = 0;
821     $first_time = 0;
822     last LABEL35;
823     last TEST35;
824   }
825   $ok = 1;
826 }
827 cmp_ok($ok,'==',1,'label on for(;;) last');
828
829 TEST36: {
830
831   $ok = 0;
832   my $first_time = 1;
833
834   LABEL36: {
835     if (!$first_time) {
836       $ok = 1;
837       last TEST36;
838     }
839     $ok = 0;
840     $first_time=0;
841
842     redo LABEL36;
843     last TEST36;
844   }
845   continue {
846     $ok = 0;
847     last TEST36;
848   }
849   $ok = 0;
850 }
851 cmp_ok($ok,'==',1,'label on bare block');
852
853 TEST37: {
854
855   $ok = 0;
856   LABEL37: {
857     next LABEL37;
858     last TEST37;
859   }
860   continue {
861     $ok = 1;
862     last TEST37;
863   }
864   $ok = 0;
865 }
866 cmp_ok($ok,'==',1,'label on bare block next');
867
868 TEST38: {
869
870   $ok = 0;
871   LABEL38: {
872     last LABEL38;
873     last TEST38;
874   }
875   continue {
876     $ok = 0;
877     last TEST38;
878   }
879   $ok = 1;
880 }
881 cmp_ok($ok,'==',1,'label on bare block last');
882
883 TEST39: {
884     $ok = 0;
885     my ($x, $y, $z) = (1,1,1);
886     one39: while ($x--) {
887       $ok = 0;
888       two39: while ($y--) {
889         $ok = 0;
890         three39: while ($z--) {
891            next two39;
892         }
893         continue {
894           $ok = 0;
895           last TEST39;
896         }
897       }
898       continue {
899         $ok = 1;
900         last TEST39;
901       }
902       $ok = 0;
903     }
904 }
905 cmp_ok($ok,'==',1,'nested constructs');
906
907 sub test_last_label { last TEST40 }
908
909 TEST40: {
910     $ok = 1;
911     test_last_label();
912     $ok = 0;
913 }
914 cmp_ok($ok,'==',1,'dynamically scoped label');
915
916 sub test_last { last }
917
918 TEST41: {
919     $ok = 1;
920     test_last();
921     $ok = 0;
922 }
923 cmp_ok($ok,'==',1,'dynamically scoped');
924
925
926 # [perl #27206] Memory leak in continue loop
927 # Ensure that the temporary object is freed each time round the loop,
928 # rather then all 10 of them all being freed right at the end
929
930 {
931     my $n=10; my $late_free = 0;
932     sub X::DESTROY { $late_free++ if $n < 0 };
933     {
934         ($n-- && bless {}, 'X') && redo;
935     }
936     cmp_ok($late_free,'==',0,"bug 27206: redo memory leak");
937
938     $n = 10; $late_free = 0;
939     {
940         ($n-- && bless {}, 'X') && redo;
941     }
942     continue { }
943     cmp_ok($late_free,'==',0,"bug 27206: redo with continue memory leak");
944 }
945
946 # ensure that redo doesn't clear a lexical declared in the condition
947
948 {
949     my $i = 1;
950     while (my $x = $i) {
951         $i++;
952         redo if $i == 2;
953         cmp_ok($x,'==',1,"while/redo lexical life");
954         last;
955     }
956     $i = 1;
957     until (! (my $x = $i)) {
958         $i++;
959         redo if $i == 2;
960         cmp_ok($x,'==',1,"until/redo lexical life");
961         last;
962     }
963     for ($i = 1; my $x = $i; ) {
964         $i++;
965         redo if $i == 2;
966         cmp_ok($x,'==',1,"for/redo lexical life");
967         last;
968     }
969
970 }
971
972 {
973     $a37725[3] = 1; # use package var
974     $i = 2;
975     for my $x (reverse @a37725) {
976         $x = $i++;
977     }
978     cmp_ok("@a37725",'eq',"5 4 3 2",'bug 37725: reverse with empty slots bug');
979 }
980
981 # [perl #21469] bad things happened with for $x (...) { *x = *y }
982
983 {
984     my $i = 1;
985     $x_21469  = 'X';
986     $y1_21469 = 'Y1';
987     $y2_21469 = 'Y2';
988     $y3_21469 = 'Y3';
989     for $x_21469 (1,2,3) {
990         is($x_21469, $i, "bug 21469: correct at start of loop $i");
991         *x_21469 = (*y1_21469, *y2_21469, *y3_21469)[$i-1];
992         is($x_21469, "Y$i", "bug 21469: correct at tail of loop $i");
993         $i++;
994     }
995     is($x_21469, 'X', "bug 21469: X okay at end of loop");
996 }
997
998 # [perl #112316] Wrong behavior regarding labels with same prefix
999 {
1000     my $fail;
1001     CATCH: {
1002     CATCHLOOP: {
1003             last CATCH;
1004         }
1005         $fail = 1;
1006     }
1007     ok(!$fail, "perl 112316: Labels with the same prefix don't get mixed up.");
1008 }
1009
1010 # [perl #73618]
1011 {
1012     sub foo_73618_0 {
1013         while (0) { }
1014     }
1015     sub bar_73618_0 {
1016         my $i = 0;
1017         while ($i) { }
1018     }
1019     sub foo_73618_undef {
1020         while (undef) { }
1021     }
1022     sub bar_73618_undef {
1023         my $i = undef;
1024         while ($i) { }
1025     }
1026     sub foo_73618_emptystring {
1027         while ("") { }
1028     }
1029     sub bar_73618_emptystring {
1030         my $i = "";
1031         while ($i) { }
1032     }
1033     sub foo_73618_0float {
1034         while (0.0) { }
1035     }
1036     sub bar_73618_0float {
1037         my $i = 0.0;
1038         while ($i) { }
1039     }
1040     sub foo_73618_0string {
1041         while ("0") { }
1042     }
1043     sub bar_73618_0string {
1044         my $i = "0";
1045         while ($i) { }
1046     }
1047     sub foo_73618_until {
1048         until (1) { }
1049     }
1050     sub bar_73618_until {
1051         my $i = 1;
1052         until ($i) { }
1053     }
1054
1055     is(scalar(foo_73618_0()), scalar(bar_73618_0()),
1056        "constant optimization doesn't change return value");
1057     is(scalar(foo_73618_undef()), scalar(bar_73618_undef()),
1058        "constant optimization doesn't change return value");
1059     is(scalar(foo_73618_emptystring()), scalar(bar_73618_emptystring()),
1060        "constant optimization doesn't change return value");
1061     is(scalar(foo_73618_0float()), scalar(bar_73618_0float()),
1062        "constant optimization doesn't change return value");
1063     is(scalar(foo_73618_0string()), scalar(bar_73618_0string()),
1064        "constant optimization doesn't change return value");
1065     { local $TODO = "until is still wrongly optimized";
1066     is(scalar(foo_73618_until()), scalar(bar_73618_until()),
1067        "constant optimization doesn't change return value");
1068     }
1069 }
1070
1071 # [perl #113684]
1072 last_113684:
1073 {
1074     label1:
1075     {
1076         my $label = "label1";
1077         eval { last $label };
1078         fail("last with non-constant label");
1079         last last_113684;
1080     }
1081     pass("last with non-constant label");
1082 }
1083 next_113684:
1084 {
1085     label2:
1086     {
1087         my $label = "label2";
1088         eval { next $label };
1089         fail("next with non-constant label");
1090         next next_113684;
1091     }
1092     pass("next with non-constant label");
1093 }
1094 redo_113684:
1095 {
1096     my $count;
1097     label3:
1098     {
1099         if ($count++) {
1100             pass("redo with non-constant label"); last redo_113684
1101         }
1102         my $label = "label3";
1103         eval { redo $label };
1104         fail("redo with non-constant label");
1105     }
1106 }
1107
1108 # [perl #3112]
1109 # The original report, which produced a Bizarre copy
1110 @a  = ();
1111 eval {
1112     for (1) {
1113         push @a, last;
1114     }
1115 };
1116 is @a, 0, 'push @a, last;  does not push';
1117 is $@, "", 'no error, either';
1118 # And my japh, which relied on the misbehaviour
1119 is do{{&{sub{"Just another Perl hacker,\n"}},last}}, undef,
1120   'last returns nothing';