1*5759b3d2Safresh1use strict; 2*5759b3d2Safresh1use warnings; 3*5759b3d2Safresh1 4*5759b3d2Safresh1use lib 't/lib'; 5*5759b3d2Safresh1 6*5759b3d2Safresh1use Test::Tester; 7*5759b3d2Safresh1 8*5759b3d2Safresh1use MyTest; 9*5759b3d2Safresh1 10*5759b3d2Safresh1my $test = Test::Builder->new; 11*5759b3d2Safresh1$test->plan(tests => 2); 12*5759b3d2Safresh1 13*5759b3d2Safresh1sub deeper 14*5759b3d2Safresh1{ 15*5759b3d2Safresh1 MyTest::ok(1); 16*5759b3d2Safresh1} 17*5759b3d2Safresh1 18*5759b3d2Safresh1{ 19*5759b3d2Safresh1 20*5759b3d2Safresh1 my @results = run_tests( 21*5759b3d2Safresh1 sub { 22*5759b3d2Safresh1 MyTest::ok(1); 23*5759b3d2Safresh1 deeper(); 24*5759b3d2Safresh1 } 25*5759b3d2Safresh1 ); 26*5759b3d2Safresh1 27*5759b3d2Safresh1 local $Test::Builder::Level = 0; 28*5759b3d2Safresh1 $test->is_num($results[1]->{depth}, 1, "depth 1"); 29*5759b3d2Safresh1 $test->is_num($results[2]->{depth}, 2, "deeper"); 30*5759b3d2Safresh1} 31*5759b3d2Safresh1 32