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