Remove flagging OP_READLINE with OPf_SPECIAL
[perl.git] / t / base / while.t
1 #!./perl
2
3 print "1..4\n";
4
5 # very basic tests of while
6
7 $x = 0;
8 while ($x != 3) {
9     $x = $x + 1;
10 }
11 if ($x == 3) { print "ok 1\n"; } else { print "not ok 1\n";}
12
13 $x = 0;
14 while (1) {
15     $x = $x + 1;
16     last if $x == 3;
17 }
18 if ($x == 3) { print "ok 2\n"; } else { print "not ok 2\n";}
19
20 $x = 0;
21 while ($x != 3) {
22     $x = $x + 1;
23     next;
24     print "not ";
25 }
26 print "ok 3\n";
27
28 $x = 0;
29 while (0) {
30     $x = 1;
31 }
32 if ($x == 0) { print "ok 4\n"; } else { print "not ok 4\n";}
33