1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
use Test2::Bundle::Extended -target => 'Test2::Tools::Exception';
{
package Foo;
use Test2::Tools::Exception qw/dies lives try_ok/;
::imported_ok(qw/dies lives try_ok/);
}
use Test2::API qw/intercept/;
like(
dies { die 'xyz' },
qr/xyz/,
"Got exception"
);
is(dies { 0 }, undef, "no exception");
{
local $@ = 'foo';
ok(lives { 0 }, "it lives!");
is($@, "foo", "did not change \$@");
}
ok(!lives { die 'xxx' }, "it died");
like($@, qr/xxx/, "Exception is available");
try_ok { 0 } "No Exception from try_ok";
my $err;
is(
intercept { try_ok { die 'abc' } "foo"; $err = $@; },
array {
fail_events Ok => sub {
call name => "foo";
call pass => 0;
};
event Diag => sub { msg => match qr/abc/; };
},
"Got failure + diag from try_ok"
);
like($err, qr/abc/, '$@ has the exception');
like(
warning { dies { 1 } },
qr/Useless use of dies\(\) in void context/,
"warns in void context"
);
like(
warning { lives { 1 } },
qr/Useless use of lives\(\) in void context/,
"warns in void context"
);
done_testing;
|
