Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
79072805 |
3 | # $RCSfile: flip.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:52 $ |
8d063cd8 |
4 | |
88587957 |
5 | chdir 't' if -d 't'; |
6 | |
790090df |
7 | print "1..10\n"; |
8d063cd8 |
8 | |
9 | @a = (1,2,3,4,5,6,7,8,9,10,11,12); |
10 | |
c6aa4a32 |
11 | while ($_ = shift(@a)) { |
8d063cd8 |
12 | if ($x = /4/../8/) { $z = $x; print "ok ", $x + 0, "\n"; } |
13 | $y .= /1/../2/; |
14 | } |
15 | |
16 | if ($z eq '5E0') {print "ok 6\n";} else {print "not ok 6\n";} |
17 | |
18 | if ($y eq '12E0123E0') {print "ok 7\n";} else {print "not ok 7\n";} |
19 | |
20 | @a = ('a','b','c','d','e','f','g'); |
21 | |
2eb25c99 |
22 | open(of,'harness') or die "Can't open harness: $!"; |
8d063cd8 |
23 | while (<of>) { |
a0d0e21e |
24 | (3 .. 5) && ($foo .= $_); |
8d063cd8 |
25 | } |
26 | $x = ($foo =~ y/\n/\n/); |
27 | |
28 | if ($x eq 3) {print "ok 8\n";} else {print "not ok 8 $x:$foo:\n";} |
3e3baf6d |
29 | |
30 | $x = 3.14; |
31 | if (($x...$x) eq "1") {print "ok 9\n";} else {print "not ok 9\n";} |
790090df |
32 | |
33 | { |
34 | # coredump reported in bug 20001018.008 |
35 | readline(UNKNOWN); |
36 | $. = 1; |
b04ef359 |
37 | print "ok 10\n" unless 1 .. 10; |
790090df |
38 | } |