/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/buffered_subtest_plan_buffered.t (624B)
use Test2::Tools::Tiny; use strict; use warnings; use Test2::API qw/intercept test2_stack/; use Data::Dumper; sub hide_buffered { 0 } sub write { my $self = shift; my ($e) = @_; push @{$self->{events}} => $e; } sub finalize { } my $events; intercept { my $hub = test2_stack()->top; my $formatter = bless({}, __PACKAGE__); $hub->format($formatter); tests xxx => sub { ok(1, "pass"); }; $events = $formatter->{events}; }; pop @$events; for my $e (@$events) { ok($e->trace->buffered, "Buffered events are all listed as buffered") || diag(Dumper($e)); } done_testing;