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