/usr/share/doc/perl-Test-Simple/t/regression
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;
.
Edit
..
Edit
642_persistent_end.t
Edit
662-tbt-no-plan.t
Edit
684-nested_todo_diag.t
Edit
694_note_diag_return_values.t
Edit
696-intercept_skip_all.t
Edit
721-nested-streamed-subtest.t
Edit
757-reset_in_subtest.t
Edit
812-todo.t
Edit
817-subtest-todo.t
Edit
862-intercept_tb_todo.t
Edit
buffered_subtest_plan_buffered.t
Edit
builder_does_not_init.t
Edit
errors_facet.t
Edit
fork_first.t
Edit
inherit_trace.t
Edit
no_name_in_subtest.t
Edit
todo_and_facets.t
Edit