|
Server : Apache System : Linux cloud.heroica.com.br 4.18.0-553.36.1.el8_10.x86_64 #1 SMP Wed Jan 22 03:07:54 EST 2025 x86_64 User : farolpborg ( 1053) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system Directory : /proc/self/root/usr/share/doc/perl-Test-Simple/t/Test2/modules/Event/ |
Upload File : |
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;