blob: 71a3aaa6c0b6761834d2ddfbf5eb7d765fc466b0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
use Test2::Tools::Tiny;
use strict;
use warnings;
use Test2::API qw/context run_subtest intercept/;
sub subtest {
my ($name, $code) = @_;
my $ctx = context();
my $pass = run_subtest($name, $code, {buffered => 1}, @_);
$ctx->release;
return $pass;
}
sub bail {
my $ctx = context();
$ctx->bail(@_);
$ctx->release;
}
my $events = intercept {
subtest outer => sub {
subtest inner => sub {
bail("bye!");
};
};
};
ok($events->[0]->isa('Test2::Event::Subtest'), "Got a subtest event when bail-out issued in a buffered subtest");
ok($events->[-1]->isa('Test2::Event::Bail'), "Bail-Out propogated");
ok(!$events->[-1]->facet_data->{trace}->{buffered}, "Final Bail-Out is not buffered");
ok($events->[0]->subevents->[-2]->isa('Test2::Event::Bail'), "Got bail out inside outer subtest");
ok($events->[0]->subevents->[-2]->facet_data->{trace}->{buffered}, "Bail-Out is buffered");
ok($events->[0]->subevents->[0]->subevents->[-2]->isa('Test2::Event::Bail'), "Got bail out inside inner subtest");
ok($events->[0]->subevents->[0]->subevents->[-2]->facet_data->{trace}->{buffered}, "Bail-Out is buffered");
done_testing;
|
