Commit | Line | Data |
---|---|---|
0e25c5fd JH |
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 JH |
12 | $SIG{__WARN__} = sub { |
13 | print "ok $1\n" | |
14 | if $_[0] =~ m!ok (\d+)$! }; | |
0e25c5fd | 15 | |
1115139d JH |
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 JH |
21 | |
22 | carp 3; | |
23 | ||
24 | sub sub_4 { | |
25 | ||
1115139d JH |
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 JH |
29 | |
30 | cluck 4; | |
31 | ||
32 | } | |
33 | ||
34 | sub_4; | |
35 | ||
1115139d JH |
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 JH |
39 | |
40 | eval { croak 5 }; | |
41 | ||
42 | sub sub_6 { | |
1115139d JH |
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 JH |
46 | |
47 | eval { confess 6 }; | |
48 | } | |
49 | ||
50 | sub_6; | |
51 | ||
52 | print "ok 7\n"; | |
53 |