ACIL FM

Nama	Ukuran	Aksi
TAP	-	Open
Bail.t	1.68 MB	View DL Edit
Diag.t	1.3 MB	View DL Edit
Encoding.t	659 B	View DL Edit
Exception.t	1.21 MB	View DL Edit
Fail.t	1.16 MB	View DL Edit
Generic.t	3.72 MB	View DL Edit
Note.t	1.24 MB	View DL Edit
Ok.t	4.34 MB	View DL Edit
Pass.t	1.18 MB	View DL Edit
Plan.t	4.33 MB	View DL Edit
Skip.t	926 B	View DL Edit
Subtest.t	1.45 MB	View DL Edit
V2.t	2.52 MB	View DL Edit
Waiting.t	630 B	View DL Edit

Edit file: /usr/share/doc/perl-Test-Simple/t/Test2/modules/Event/Exception.t

use strict;
use warnings;
use Test2::Tools::Tiny;
use Test2::Event::Exception;

my $exception = Test2::Event::Exception->new(
    trace => {frame => []},
    error => "evil at lake_of_fire.t line 6\n",
);

ok($exception->causes_fail, "Exception events always cause failure");

is($exception->summary, "Exception: evil at lake_of_fire.t line 6", "Got summary");

ok($exception->diagnostics, "Exception events are counted as diagnostics");

my $facet_data = $exception->facet_data;
ok($facet_data->{about}, "Got common facet data");

is_deeply(
    $facet_data->{errors},
    [{
        tag => 'ERROR',
        fail => 1,
        details => "evil at lake_of_fire.t line 6\n",
    }],
    "Got error facet",
);

my $hash = {an => 'error'};
my $str = "$hash";

$exception = Test2::Event::Exception->new(
    trace => {frame => []},
    error => $hash,
);

ok($exception->causes_fail, "Exception events always cause failure");

is($exception->error, $str, "Got stringified exception");

$facet_data = $exception->facet_data;
ok($facet_data->{about}, "Got common facet data");

is_deeply(
    $facet_data->{errors},
    [{
        tag => 'ERROR',
        fail => 1,
        details => $str,
    }],
    "Got error facet",
);

done_testing;

Batal