| Server IP : 157.90.209.209 / Your IP : 216.73.216.185 [ Web Server : Apache System : Linux hcomm124.dns-wk.info 4.18.0-553.64.1.el8_10.x86_64 #1 SMP Mon Jul 28 12:01:56 EDT 2025 x86_64 User : evidenciarevista ( 1049) PHP Version : 7.2.34 Disable Function : exec,passthru,shell_exec,system Domains : 216 Domains MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /proc/2717185/root/usr/share/doc/perl-Test-Simple/t/Test2/modules/Util/ |
Upload File : |
use strict;
use warnings;
use Test2::Tools::Tiny;
use Test2::EventFacet::Trace;
like(
exception { 'Test2::EventFacet::Trace'->new() },
qr/The 'frame' attribute is required/,
"got error"
);
my $one = 'Test2::EventFacet::Trace'->new(frame => ['Foo::Bar', 'foo.t', 5, 'Foo::Bar::foo']);
is_deeply($one->frame, ['Foo::Bar', 'foo.t', 5, 'Foo::Bar::foo'], "Got frame");
is_deeply([$one->call], ['Foo::Bar', 'foo.t', 5, 'Foo::Bar::foo'], "Got call");
is($one->package, 'Foo::Bar', "Got package");
is($one->file, 'foo.t', "Got file");
is($one->line, 5, "Got line");
is($one->subname, 'Foo::Bar::foo', "got subname");
is($one->debug, "at foo.t line 5", "got trace");
$one->set_detail("yo momma");
is($one->debug, "yo momma", "got detail for trace");
$one->set_detail(undef);
is(
exception { $one->throw('I died') },
"I died at foo.t line 5.\n",
"got exception"
);
is_deeply(
warnings { $one->alert('I cried') },
[ "I cried at foo.t line 5.\n" ],
"alter() warns"
);
my $snap = $one->snapshot;
is_deeply($snap, $one, "identical");
ok($snap != $one, "Not the same instance");
done_testing;