1use Test::More;
2use strict;
3use warnings;
4
5use Test2::API qw/intercept/;
6my @events;
7
8intercept {
9    local $TODO = "broken";
10
11    Test2::API::test2_stack->top->listen(sub { push @events => $_[1] }, inherit => 1);
12
13    subtest foo => sub {
14        subtest bar => sub {
15            ok(0, 'oops');
16        };
17    };
18};
19
20my ($event) = grep { $_->trace->line == 16 && ref($_) eq 'Test::Builder::TodoDiag'} @events;
21ok($event, "nested todo diag on line 16 was changed to TodoDiag (STDOUT instead of STDERR)");
22
23done_testing;
24