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