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