Commit | Line | Data |
---|---|---|
8d063cd8 LW |
1 | #!./perl |
2 | ||
79072805 | 3 | # $RCSfile: while.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:15 $ |
8d063cd8 LW |
4 | |
5 | print "1..10\n"; | |
6 | ||
a0d0e21e | 7 | open (tmp,'>Cmd_while.tmp') || die "Can't create Cmd_while.tmp."; |
8d063cd8 LW |
8 | print tmp "tvi925\n"; |
9 | print tmp "tvi920\n"; | |
10 | print tmp "vt100\n"; | |
11 | print tmp "Amiga\n"; | |
12 | print tmp "paper\n"; | |
13 | close tmp; | |
14 | ||
15 | # test "last" command | |
16 | ||
a0d0e21e | 17 | open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp."; |
8d063cd8 LW |
18 | while (<fh>) { |
19 | last if /vt100/; | |
20 | } | |
a687059c | 21 | if (!eof && /vt100/) {print "ok 1\n";} else {print "not ok 1 $_\n";} |
8d063cd8 LW |
22 | |
23 | # test "next" command | |
24 | ||
25 | $bad = ''; | |
a0d0e21e | 26 | open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp."; |
8d063cd8 LW |
27 | while (<fh>) { |
28 | next if /vt100/; | |
29 | $bad = 1 if /vt100/; | |
30 | } | |
31 | if (!eof || /vt100/ || $bad) {print "not ok 2\n";} else {print "ok 2\n";} | |
32 | ||
33 | # test "redo" command | |
34 | ||
35 | $bad = ''; | |
a0d0e21e | 36 | open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp."; |
8d063cd8 LW |
37 | while (<fh>) { |
38 | if (s/vt100/VT100/g) { | |
39 | s/VT100/Vt100/g; | |
40 | redo; | |
41 | } | |
42 | $bad = 1 if /vt100/; | |
43 | $bad = 1 if /VT100/; | |
44 | } | |
45 | if (!eof || $bad) {print "not ok 3\n";} else {print "ok 3\n";} | |
46 | ||
47 | # now do the same with a label and a continue block | |
48 | ||
49 | # test "last" command | |
50 | ||
51 | $badcont = ''; | |
a0d0e21e | 52 | open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp."; |
8d063cd8 LW |
53 | line: while (<fh>) { |
54 | if (/vt100/) {last line;} | |
55 | } continue { | |
56 | $badcont = 1 if /vt100/; | |
57 | } | |
58 | if (!eof && /vt100/) {print "ok 4\n";} else {print "not ok 4\n";} | |
59 | if (!$badcont) {print "ok 5\n";} else {print "not ok 5\n";} | |
60 | ||
61 | # test "next" command | |
62 | ||
63 | $bad = ''; | |
64 | $badcont = 1; | |
a0d0e21e | 65 | open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp."; |
8d063cd8 LW |
66 | entry: while (<fh>) { |
67 | next entry if /vt100/; | |
68 | $bad = 1 if /vt100/; | |
69 | } continue { | |
70 | $badcont = '' if /vt100/; | |
71 | } | |
72 | if (!eof || /vt100/ || $bad) {print "not ok 6\n";} else {print "ok 6\n";} | |
73 | if (!$badcont) {print "ok 7\n";} else {print "not ok 7\n";} | |
74 | ||
75 | # test "redo" command | |
76 | ||
77 | $bad = ''; | |
78 | $badcont = ''; | |
a0d0e21e | 79 | open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp."; |
8d063cd8 LW |
80 | loop: while (<fh>) { |
81 | if (s/vt100/VT100/g) { | |
82 | s/VT100/Vt100/g; | |
83 | redo loop; | |
84 | } | |
85 | $bad = 1 if /vt100/; | |
86 | $bad = 1 if /VT100/; | |
87 | } continue { | |
88 | $badcont = 1 if /vt100/; | |
89 | } | |
90 | if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";} | |
91 | if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";} | |
92 | ||
a0d0e21e | 93 | unlink 'Cmd_while.tmp' || `/bin/rm Cmd_While.tmp`; |
8d063cd8 LW |
94 | |
95 | #$x = 0; | |
96 | #while (1) { | |
97 | # if ($x > 1) {last;} | |
98 | # next; | |
99 | #} continue { | |
100 | # if ($x++ > 10) {last;} | |
101 | # next; | |
102 | #} | |
103 | # | |
104 | #if ($x < 10) {print "ok 10\n";} else {print "not ok 10\n";} | |
105 | ||
106 | $i = 9; | |
107 | { | |
108 | $i++; | |
109 | } | |
110 | print "ok $i\n"; |