test

output

perl test.pl
# Seeded srand with seed '20201123' from local date.
ok 1 - hi
# foo
ok 2 - thesubtest {
    ok 1 - hi
    # foo
    1..1
}
1..2

test.pl

use Test2::V0;

sub myok {
    my $ctx = Test2::API::context();
    $ctx->pass("hi");
    $ctx->note("foo");
    $ctx->release;
}

myok();

subtest thesubtest => sub {
    myok();
};

done_testing;