Gecko [ georgetownmover.com ]

Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.26
Domains : 74 Domain
User : georgeto

Name	Size	Permission	Date
Formatter.t	1.64 KB	-rw-r--r--	2020-10-22 03:10
Subtest_buffer_formatter.t	2.62 KB	-rw-r--r--	2020-10-22 03:10
Subtest_callback.t	906 B	-rw-r--r--	2020-10-22 03:10
Subtest_events.t	441 B	-rw-r--r--	2020-10-22 03:10
Subtest_plan.t	355 B	-rw-r--r--	2020-10-22 03:10
Subtest_todo.t	932 B	-rw-r--r--	2020-10-22 03:10
Taint.t	356 B	-rw-r--r--	2020-10-22 03:10
disable_ipc_a.t	203 B	-rw-r--r--	2020-10-22 03:10
disable_ipc_b.t	219 B	-rw-r--r--	2020-10-22 03:10
disable_ipc_c.t	256 B	-rw-r--r--	2020-10-22 03:10
disable_ipc_d.t	458 B	-rw-r--r--	2020-10-22 03:10
err_var.t	177 B	-rw-r--r--	2020-10-22 03:10
init_croak.t	589 B	-rw-r--r--	2020-10-22 03:10
intercept.t	1.09 KB	-rw-r--r--	2020-10-22 03:10
ipc_wait_timeout.t	2.3 KB	-rw-r--r--	2020-10-22 03:10
nested_context_exception.t	2.09 KB	-rw-r--r--	2020-10-22 03:10
no_load_api.t	1.52 KB	-rw-r--r--	2020-10-22 03:10
run_subtest_inherit.t	2.21 KB	-rw-r--r--	2020-10-22 03:10
special_names.t	1.28 KB	-rw-r--r--	2020-10-22 03:10
subtest_bailout.t	1.15 KB	-rw-r--r--	2020-10-22 03:10
trace_signature.t	1.47 KB	-rw-r--r--	2020-10-22 03:10
uuid.t	3.33 KB	-rw-r--r--	2020-10-22 03:10

Rename

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;