Geforce File Manager

NAME	SIZE	ACTIONS
📁 TAP		[ DEL ]
📄 Bail.t	1,719 B	[ EDIT ] \| [ DEL ]
📄 Diag.t	1,331 B	[ EDIT ] \| [ DEL ]
📄 Encoding.t	659 B	[ EDIT ] \| [ DEL ]
📄 Exception.t	1,234 B	[ EDIT ] \| [ DEL ]
📄 Fail.t	1,184 B	[ EDIT ] \| [ DEL ]
📄 Generic.t	3,811 B	[ EDIT ] \| [ DEL ]
📄 Note.t	1,266 B	[ EDIT ] \| [ DEL ]
📄 Ok.t	4,445 B	[ EDIT ] \| [ DEL ]
📄 Pass.t	1,209 B	[ EDIT ] \| [ DEL ]
📄 Plan.t	4,438 B	[ EDIT ] \| [ DEL ]
📄 Skip.t	926 B	[ EDIT ] \| [ DEL ]
📄 Subtest.t	1,482 B	[ EDIT ] \| [ DEL ]
📄 V2.t	2,562 B	[ EDIT ] \| [ DEL ]
📄 Waiting.t	630 B	[ EDIT ] \| [ DEL ]

[ CLOSE ]

EDIT: Bail.t

use strict;
use warnings;
use Test2::Tools::Tiny;
use Test2::Event::Bail;
use Test2::EventFacet::Trace;

my $bail = Test2::Event::Bail->new(
    trace => Test2::EventFacet::Trace->new(frame => ['foo', 'foo.t', 42]),
    reason => 'evil',
);

ok($bail->causes_fail, "bailout always causes fail.");

is($bail->terminate, 255, "Bail will cause the test to exit.");
is($bail->global, 1, "Bail is global, everything should bail");

is($bail->summary, "Bail out!  evil", "Summary includes reason");
$bail->set_reason("");
is($bail->summary, "Bail out!", "Summary has no reason");

ok($bail->diagnostics, "Bail events are counted as diagnostics");

is_deeply(
    $bail->facet_data,
    {
        about => {
            package => 'Test2::Event::Bail',
            eid     => $bail->eid,
        },
        control => {
            global    => 1,
            terminate => 255,
            details   => '',
            halt      => 1
        },
        trace => {
            frame => [
                'foo',
                'foo.t',
                '42',
            ],
            pid => $$,
            tid => 0
        },
    },
    "Got facet data",
);

$bail->set_reason('uhg');
is_deeply(
    $bail->facet_data,
    {
        about => {
            package => 'Test2::Event::Bail',
            eid     => $bail->eid,
        },
        control => {
            global    => 1,
            terminate => 255,
            details   => 'uhg',
            halt      => 1
        },
        trace => {
            frame => [
                'foo',
                'foo.t',
                '42',
            ],
            pid => $$,
            tid => 0
        },
    },
    "Got facet data with reason",
);

done_testing;