Gecko [ georgetownmover.com ]

Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.26
Domains : 74 Domain
User : georgeto

Name	Size	Permission	Date
642_persistent_end.t	445 B	-rw-r--r--	2020-10-22 03:10
662-tbt-no-plan.t	564 B	-rw-r--r--	2020-10-22 03:10
684-nested_todo_diag.t	520 B	-rw-r--r--	2020-10-22 03:10
694_note_diag_return_values.t	401 B	-rw-r--r--	2020-10-22 03:10
696-intercept_skip_all.t	1005 B	-rw-r--r--	2020-10-22 03:10
721-nested-streamed-subtest.t	2.89 KB	-rw-r--r--	2020-10-22 03:10
757-reset_in_subtest.t	289 B	-rw-r--r--	2020-10-22 03:10
812-todo.t	654 B	-rw-r--r--	2020-10-22 03:10
817-subtest-todo.t	940 B	-rw-r--r--	2020-10-22 03:10
862-intercept_tb_todo.t	1.43 KB	-rw-r--r--	2020-10-22 03:10
buffered_subtest_plan_buffered.t	624 B	-rw-r--r--	2020-10-22 03:10
builder_does_not_init.t	362 B	-rw-r--r--	2020-10-22 03:10
errors_facet.t	986 B	-rw-r--r--	2020-10-22 03:10
fork_first.t	552 B	-rw-r--r--	2020-10-22 03:10
inherit_trace.t	548 B	-rw-r--r--	2020-10-22 03:10
no_name_in_subtest.t	135 B	-rw-r--r--	2020-10-22 03:10
todo_and_facets.t	906 B	-rw-r--r--	2020-10-22 03:10

Rename

use strict;
use warnings;

use Test::More;
use Test2::API qw/intercept/;

my $events;
{
    local $TODO = "main-outer-todo";

package Foo;

our $TODO;
    local $TODO = "foo-outer-todo";

$events = main::intercept(sub {
        main::ok(1, "assertion 1");

{
            local $main::TODO = "main-inner-todo";
            main::ok(1, "assertion 2");
        }

{
            local $Foo::TODO = "foo-inner-todo";
            main::ok(1, "assertion 3");
        }

main::ok(1, "assertion 4");
    });

# Cannot use intercept, so make a failing test, the overall test file
    # should still pass because this is todo. If this is not todo we know we
    # broke something by the test failing overall.
    main::ok(0, "Verifying todo, this should be a failed todo test");
}

@$events = grep { $_->facet_data->{assert} } @$events;

ok(!$events->[0]->facet_data->{amnesty}, "No amnesty for the first event, \$TODO was cleaned");

is_deeply(
    $events->[1]->facet_data->{amnesty},
    [{
        tag     => 'TODO',
        details => 'main-inner-todo',
    }],
    "The second event had the expected amnesty applied",
);

is_deeply(
    $events->[2]->facet_data->{amnesty},
    [{
        tag     => 'TODO',
        details => 'foo-inner-todo',
    }],
    "The third event had the expected amnesty applied",
);

ok(!$events->[3]->facet_data->{amnesty}, "No amnesty for the fourth event, \$TODO was cleaned");

done_testing;