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