Commit | Line | Data |
0e25c5fd |
1 | BEGIN { |
2 | chdir 't' if -d 't'; |
3 | @INC = '../lib'; |
4 | } |
5 | |
6 | use Carp qw(carp cluck croak confess); |
7 | |
8 | print "1..7\n"; |
9 | |
10 | print "ok 1\n"; |
11 | |
1115139d |
12 | $SIG{__WARN__} = sub { |
13 | print "ok $1\n" |
14 | if $_[0] =~ m!ok (\d+)$! }; |
0e25c5fd |
15 | |
1115139d |
16 | carp "ok 2\n"; |
17 | |
18 | $SIG{__WARN__} = sub { |
19 | print "ok $1\n" |
20 | if $_[0] =~ m!(\d+) at .+\b(?i:carp\.t) line \d+$! }; |
0e25c5fd |
21 | |
22 | carp 3; |
23 | |
24 | sub sub_4 { |
25 | |
1115139d |
26 | $SIG{__WARN__} = sub { |
27 | print "ok $1\n" |
28 | if $_[0] =~ m!^(\d+) at .+\b(?i:carp\.t) line \d+\n\tmain::sub_4\(\) called at .+\b(?i:carp\.t) line \d+$! }; |
0e25c5fd |
29 | |
30 | cluck 4; |
31 | |
32 | } |
33 | |
34 | sub_4; |
35 | |
1115139d |
36 | $SIG{__DIE__} = sub { |
37 | print "ok $1\n" |
38 | if $_[0] =~ m!^(\d+) at .+\b(?i:carp\.t) line \d+\n\teval \Q{...}\E called at .+\b(?i:carp\.t) line \d+$! }; |
0e25c5fd |
39 | |
40 | eval { croak 5 }; |
41 | |
42 | sub sub_6 { |
1115139d |
43 | $SIG{__DIE__} = sub { |
44 | print "ok $1\n" |
45 | if $_[0] =~ m!^(\d+) at .+\b(?i:carp\.t) line \d+\n\teval \Q{...}\E called at .+\b(?i:carp\.t) line \d+\n\tmain::sub_6\(\) called at .+\b(?i:carp\.t) line \d+$! }; |
0e25c5fd |
46 | |
47 | eval { confess 6 }; |
48 | } |
49 | |
50 | sub_6; |
51 | |
52 | print "ok 7\n"; |
53 | |