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