cpan/Test-Simple/t/Test2/behavior/Subtest_events.t

   1 use strict;
   2 use warnings;
   3
   4 use Test2::Tools::Tiny;
   5
   6 use Test2::API qw/run_subtest intercept/;
   7
   8 my $events = intercept {
   9     my $code = sub { ok(1) };
  10     run_subtest('blah', $code, 'buffered');
  11 };
  12
  13 ok(!$events->[0]->in_subtest, "main event is not inside a subtest");
  14 ok($events->[0]->subtest_id, "Got subtest id");
  15 ok($events->[0]->subevents->[0]->in_subtest, "nested events are in the subtest");
  16
  17 done_testing;