1*5759b3d2Safresh1use strict; 2*5759b3d2Safresh1 3*5759b3d2Safresh1use Test::Tester; 4*5759b3d2Safresh1 5*5759b3d2Safresh1my $Test = Test::Builder->new; 6*5759b3d2Safresh1$Test->plan(tests => 3); 7*5759b3d2Safresh1 8*5759b3d2Safresh1my $cap; 9*5759b3d2Safresh1 10*5759b3d2Safresh1$cap = Test::Tester->capture; 11*5759b3d2Safresh1 12*5759b3d2Safresh1{ 13*5759b3d2Safresh1 no warnings 'redefine'; 14*5759b3d2Safresh1 sub Test::Tester::find_run_tests { return 0}; 15*5759b3d2Safresh1} 16*5759b3d2Safresh1 17*5759b3d2Safresh1local $Test::Builder::Level = 0; 18*5759b3d2Safresh1{ 19*5759b3d2Safresh1 my $cur = $cap->current_test; 20*5759b3d2Safresh1 $Test->is_num($cur, 0, "current test"); 21*5759b3d2Safresh1 22*5759b3d2Safresh1 eval {$cap->current_test(2)}; 23*5759b3d2Safresh1 $Test->ok($@, "can't set test_num"); 24*5759b3d2Safresh1} 25*5759b3d2Safresh1 26*5759b3d2Safresh1{ 27*5759b3d2Safresh1 $cap->ok(1, "a test"); 28*5759b3d2Safresh1 29*5759b3d2Safresh1 my @res = $cap->details; 30*5759b3d2Safresh1 31*5759b3d2Safresh1 $Test->is_num(scalar @res, 1, "res count"); 32*5759b3d2Safresh1} 33