xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/acceptance/try_it_plan.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
1use strict;
2use warnings;
3
4use Test2::API qw/context/;
5
6sub plan {
7    my $ctx = context();
8    $ctx->plan(@_);
9    $ctx->release;
10}
11
12sub ok($;$) {
13    my ($bool, $name) = @_;
14    my $ctx = context();
15    $ctx->ok($bool, $name);
16    $ctx->release;
17}
18
19plan(2);
20
21ok(1, "First");
22ok(1, "Second");
23
241;
25