1use strict;
2use warnings;
3
4use Test::More;
5use Test2::API qw/intercept/;
6
7my $res = intercept {
8    subtest foo => sub {
9        ok(1, "check");
10    };
11};
12
13is(@$res, 2, "2 results");
14
15isa_ok($res->[0], 'Test2::Event::Note');
16is($res->[0]->message, 'Subtest: foo', "got subtest note");
17
18isa_ok($res->[1], 'Test2::Event::Subtest');
19ok($res->[1]->pass, "subtest passed");
20
21my $subs = $res->[1]->subevents;
22is(@$subs, 2, "got all subevents");
23
24isa_ok($subs->[0], 'Test2::Event::Ok');
25is($subs->[0]->pass, 1, "subtest ok passed");
26is($subs->[0]->name, 'check', "subtest ok name");
27
28isa_ok($subs->[1], 'Test2::Event::Plan');
29is($subs->[1]->max, 1, "subtest plan is 1");
30
31done_testing;
32