1*5759b3d2Safresh1use Test2::Tools::Tiny; 2*5759b3d2Safresh1use strict; 3*5759b3d2Safresh1use warnings; 4*5759b3d2Safresh1 5*5759b3d2Safresh1use Test2::API qw/context run_subtest intercept/; 6*5759b3d2Safresh1 7*5759b3d2Safresh1sub do_it { 8*5759b3d2Safresh1 my $ctx = context(); 9*5759b3d2Safresh1 10*5759b3d2Safresh1 run_subtest foo => sub { 11*5759b3d2Safresh1 ok(1, "pass"); 12*5759b3d2Safresh1 }, {inherit_trace => 1}; 13*5759b3d2Safresh1 14*5759b3d2Safresh1 $ctx->release; 15*5759b3d2Safresh1} 16*5759b3d2Safresh1 17*5759b3d2Safresh1do_it(); 18*5759b3d2Safresh1do_it(); 19*5759b3d2Safresh1 20*5759b3d2Safresh1my $events = intercept { 21*5759b3d2Safresh1 do_it(); 22*5759b3d2Safresh1 do_it(); 23*5759b3d2Safresh1}; 24*5759b3d2Safresh1 25*5759b3d2Safresh1for my $st (@$events) { 26*5759b3d2Safresh1 next unless $st->isa('Test2::Event::Subtest'); 27*5759b3d2Safresh1 28*5759b3d2Safresh1 is($st->trace->nested, 0, "base subtest is not nested"); 29*5759b3d2Safresh1 30*5759b3d2Safresh1 is($_->trace->nested, 1, "subevent is nested") for @{$st->subevents}; 31*5759b3d2Safresh1} 32*5759b3d2Safresh1 33*5759b3d2Safresh1done_testing; 34