1#!/usr/bin/env perl -T
2# HARNESS-NO-FORMATTER
3
4use Test2::API qw/context/;
5
6sub ok($;$@) {
7    my ($bool, $name) = @_;
8    my $ctx = context();
9    $ctx->ok($bool, $name);
10    $ctx->release;
11    return $bool ? 1 : 0;
12}
13
14sub done_testing {
15    my $ctx = context();
16    $ctx->hub->finalize($ctx->trace, 1);
17    $ctx->release;
18}
19
20ok(1);
21ok(1);
22
23done_testing;
24