One Hat Cyber Team

Your IP: 216.73.216.212
Server IP: 97.74.87.16
Server: Linux 16.87.74.97.host.secureserver.net 5.14.0-503.38.1.el9_5.x86_64 #1 SMP PREEMPT_DYNAMIC Fri Apr 18 08:52:10 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.2.28
Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-Test-Simple/t/regression/

View File Name : 817-subtest-todo.t

use Test2::API qw(run_subtest context intercept);
use Test::More;
use Test2::Tools::Tiny qw/todo/;

sub aaa {
    my $ctx = context();
    run_subtest(
        "bad pass",
        sub {
            local $TODO = "third test";
            ok(1, "ok");
        }
    );
    $ctx->release;
}

sub bbb {
    my $ctx = context();
    run_subtest(
        "bad fail",
        sub {
            local $TODO = "fourth test";
            ok(0, "ok");
        }
    );

    $ctx->release;
}

my $events = intercept {
    Test::Builder->new->_add_ts_hooks();
    aaa();
    bbb();
};

is_deeply(
    $events->[1]->{subevents}->[0]->{amnesty}->[0],
    { tag => 'TODO', details => "third test" },
    "Amnesty was set properly for first subtest assertion",
);

is_deeply(
    $events->[3]->{subevents}->[0]->{amnesty}->[0],
    { tag => 'TODO', details => "fourth test" },
    "Amnesty was set properly for second subtest assertion",
);

done_testing;