Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
5376f8ad |
3 | BEGIN { |
4 | require "test.pl"; |
5 | } |
88587957 |
6 | |
5376f8ad |
7 | plan(11); |
8d063cd8 |
8 | |
9 | @a = (1,2,3,4,5,6,7,8,9,10,11,12); |
5376f8ad |
10 | @b = (); |
c6aa4a32 |
11 | while ($_ = shift(@a)) { |
5376f8ad |
12 | if ($x = /4/../8/) { $z = $x; push @b, $x + 0; } |
8d063cd8 |
13 | $y .= /1/../2/; |
14 | } |
5376f8ad |
15 | is(join("*", @b), "1*2*3*4*5"); |
8d063cd8 |
16 | |
5376f8ad |
17 | is($z, '5E0'); |
8d063cd8 |
18 | |
5376f8ad |
19 | is($y, '12E0123E0'); |
8d063cd8 |
20 | |
21 | @a = ('a','b','c','d','e','f','g'); |
22 | |
4e3399f9 |
23 | { |
24 | local $.; |
25 | |
2eb25c99 |
26 | open(of,'harness') or die "Can't open harness: $!"; |
8d063cd8 |
27 | while (<of>) { |
a0d0e21e |
28 | (3 .. 5) && ($foo .= $_); |
8d063cd8 |
29 | } |
30 | $x = ($foo =~ y/\n/\n/); |
31 | |
5376f8ad |
32 | is($x, 3); |
3e3baf6d |
33 | |
34 | $x = 3.14; |
5376f8ad |
35 | ok(($x...$x) eq "1"); |
790090df |
36 | |
37 | { |
38 | # coredump reported in bug 20001018.008 |
39 | readline(UNKNOWN); |
40 | $. = 1; |
4e3399f9 |
41 | $x = 1..10; |
5376f8ad |
42 | ok(1); |
4e3399f9 |
43 | } |
44 | |
790090df |
45 | } |
4e3399f9 |
46 | |
5376f8ad |
47 | ok(!defined $.); |
4e3399f9 |
48 | |
49 | use warnings; |
50 | my $warn=''; |
51 | $SIG{__WARN__} = sub { $warn .= join '', @_ }; |
52 | |
5376f8ad |
53 | ok(scalar(0..2)); |
4e3399f9 |
54 | |
5376f8ad |
55 | like($warn, qr/uninitialized/); |
4e3399f9 |
56 | $warn = ''; |
57 | |
58 | $x = "foo".."bar"; |
59 | |
5376f8ad |
60 | ok((() = ($warn =~ /isn't numeric/g)) == 2); |
4e3399f9 |
61 | $warn = ''; |
62 | |
63 | $. = 15; |
5376f8ad |
64 | ok(scalar(15..0)); |