Commit | Line | Data |
---|---|---|
138b8230 GG |
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 |