/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/642_persistent_end.t (445B)
use Test::More; use strict; use warnings; use Test2::API qw{ test2_set_is_end test2_get_is_end intercept }; my %res; intercept { my $tb = Test::Builder->new; $res{before} = test2_get_is_end(); test2_set_is_end(); $res{isset} = test2_get_is_end(); $tb->reset; $res{reset} = test2_get_is_end(); }; ok(!$res{before}, "Not the end"); ok($res{isset}, "the end"); ok(!$res{reset}, "Not the end"); done_testing;