1use strict;
2use warnings;
3
4use Test::More;
5use Test2::API qw/intercept/;
6
7my $events = intercept {
8    subtest foo => sub {
9        ok(1, "pass");
10    };
11};
12
13my $st = $events->[-1];
14isa_ok($st, 'Test2::Event::Subtest');
15ok(my $id = $st->subtest_id, "got an id");
16for my $se (@{$st->subevents}) {
17    is($se->trace->hid, $id, "set subtest_id on child event");
18}
19
20done_testing;
21