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
|
use Test2::API qw(run_subtest context intercept);
use Test::More;
use Test2::Tools::Tiny qw/todo/;
sub aaa {
my $ctx = context();
run_subtest(
"bad pass",
sub {
local $TODO = "third test";
ok(1, "ok");
}
);
$ctx->release;
}
sub bbb {
my $ctx = context();
run_subtest(
"bad fail",
sub {
local $TODO = "fourth test";
ok(0, "ok");
}
);
$ctx->release;
}
my $events = intercept {
Test::Builder->new->_add_ts_hooks();
aaa();
bbb();
};
is_deeply(
$events->[1]->{subevents}->[0]->{amnesty}->[0],
{ tag => 'TODO', details => "third test" },
"Amnesty was set properly for first subtest assertion",
);
is_deeply(
$events->[3]->{subevents}->[0]->{amnesty}->[0],
{ tag => 'TODO', details => "fourth test" },
"Amnesty was set properly for second subtest assertion",
);
done_testing;
|
