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