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