1*5486feefSafresh1use strict;
2*5486feefSafresh1use warnings;
3*5486feefSafresh1
4*5486feefSafresh1use Test2::API qw/context/;
5*5486feefSafresh1
6*5486feefSafresh1use Test::More();
7*5486feefSafresh1use Test2::Tools::Basic qw/todo done_testing/;
8*5486feefSafresh1
9*5486feefSafresh1BEGIN {
10*5486feefSafresh1    *tm_ok = \&Test::More::ok;
11*5486feefSafresh1    *tm_pass = \&Test::More::pass;
12*5486feefSafresh1    *tm_fail = \&Test::More::fail;
13*5486feefSafresh1
14*5486feefSafresh1    *bas_ok = \&Test2::Tools::Basic::ok;
15*5486feefSafresh1}
16*5486feefSafresh1
17*5486feefSafresh1use vars qw/$TODO/;
18*5486feefSafresh1
19*5486feefSafresh1sub leg_ok($;$@) {
20*5486feefSafresh1    my ($bool, $name, @diag);
21*5486feefSafresh1    my $ctx = context();
22*5486feefSafresh1    $ctx->ok($bool, $name, \@diag);
23*5486feefSafresh1    $ctx->release;
24*5486feefSafresh1
25*5486feefSafresh1    return $bool;
26*5486feefSafresh1}
27*5486feefSafresh1
28*5486feefSafresh1sub new_ok($;$@) {
29*5486feefSafresh1    my ($bool, $name, @diag) = @_;
30*5486feefSafresh1    my $ctx = context();
31*5486feefSafresh1
32*5486feefSafresh1    return $ctx->pass_and_release($name) if $bool;
33*5486feefSafresh1    return $ctx->fail_and_release($name, @diag);
34*5486feefSafresh1}
35*5486feefSafresh1
36*5486feefSafresh1{
37*5486feefSafresh1    local $TODO = "Testing TODO";
38*5486feefSafresh1
39*5486feefSafresh1    tm_ok(0, "tm_ok fail");
40*5486feefSafresh1    tm_fail('tm_fail');
41*5486feefSafresh1
42*5486feefSafresh1    leg_ok(0, "legacy ok fail");
43*5486feefSafresh1    new_ok(0, "new ok fail");
44*5486feefSafresh1
45*5486feefSafresh1    bas_ok(0, "basic ok fail");
46*5486feefSafresh1}
47*5486feefSafresh1
48*5486feefSafresh1todo new_todo_test => sub {
49*5486feefSafresh1    tm_ok(0, "tm_ok fail");
50*5486feefSafresh1    tm_fail('tm_fail');
51*5486feefSafresh1
52*5486feefSafresh1    leg_ok(0, "legacy ok fail");
53*5486feefSafresh1    new_ok(0, "new ok fail");
54*5486feefSafresh1
55*5486feefSafresh1    bas_ok(0, "basic ok fail");
56*5486feefSafresh1};
57*5486feefSafresh1
58*5486feefSafresh1done_testing;
59