gnu/usr.bin/perl/cpan/Test-Simple/t/regression/817-subtest-todo.t


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;