/usr/share/doc/perl-Test-Simple/t/regression
NameSizeModeActions
642_persistent_end.t4450644editdlrm
662-tbt-no-plan.t5640644editdlrm
684-nested_todo_diag.t5200644editdlrm
694_note_diag_return_values.t4010644editdlrm
696-intercept_skip_all.t10050644editdlrm
721-nested-streamed-subtest.t29560644editdlrm
757-reset_in_subtest.t2890644editdlrm
buffered_subtest_plan_buffered.t6240644editdlrm
builder_does_not_init.t3620644editdlrm
errors_facet.t9850644editdlrm
inherit_trace.t5480644editdlrm
no_name_in_subtest.t1350644editdlrm
todo_and_facets.t9060644editdlrm
Edit: /usr/share/doc/perl-Test-Simple/t/regression/684-nested_todo_diag.t (520B)
use Test::More; use strict; use warnings; use Test2::API qw/intercept/; my @events; intercept { local $TODO = "broken"; Test2::API::test2_stack->top->listen(sub { push @events => $_[1] }, inherit => 1); subtest foo => sub { subtest bar => sub { ok(0, 'oops'); }; }; }; my ($event) = grep { $_->trace->line == 16 && ref($_) eq 'Test::Builder::TodoDiag'} @events; ok($event, "nested todo diag on line 16 was changed to TodoDiag (STDOUT instead of STDERR)"); done_testing;