#!/usr/bin/env perl -T
# HARNESS-NO-FORMATTER
sub
ok($;$@) {
my
(
$bool
,
$name
) =
@_
;
my
$ctx
= context();
$ctx
->ok(
$bool
,
$name
);
$ctx
->release;
return
$bool
? 1 : 0;
}
sub
done_testing {
my
$ctx
= context();
$ctx
->hub->finalize(
$ctx
->trace, 1);
$ctx
->release;
}
ok(1);
ok(1);
done_testing;