ACIL FM

Nama	Ukuran	Aksi
642_persistent_end.t	445 B	View DL Edit
662-tbt-no-plan.t	564 B	View DL Edit
684-nested_todo_diag.t	520 B	View DL Edit
694_note_diag_return_values.t	401 B	View DL Edit
696-intercept_skip_all.t	1005 B	View DL Edit
721-nested-streamed-subtest.t	2.89 MB	View DL Edit
757-reset_in_subtest.t	289 B	View DL Edit
812-todo.t	654 B	View DL Edit
817-subtest-todo.t	940 B	View DL Edit
862-intercept_tb_todo.t	1.43 MB	View DL Edit
buffered_subtest_plan_buffered.t	624 B	View DL Edit
builder_does_not_init.t	362 B	View DL Edit
errors_facet.t	986 B	View DL Edit
fork_first.t	552 B	View DL Edit
inherit_trace.t	548 B	View DL Edit
no_name_in_subtest.t	135 B	View DL Edit
todo_and_facets.t	906 B	View DL Edit

Edit file: /usr/share/doc/perl-Test-Simple/t/regression/862-intercept_tb_todo.t

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;

Batal