One Hat Cyber Team
Your IP :
3.147.27.20
Server IP :
103.133.214.160
Server :
Linux venus.ewebguru.net 4.18.0-553.30.1.el8_10.x86_64 #1 SMP Tue Nov 26 02:30:26 EST 2024 x86_64
Server Software :
Apache/2
PHP Version :
8.1.30
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-Test-Fatal
/
examples
/
View File Name :
exception_like.t
use strict; use warnings FATAL => 'all'; use Test::More; use Test::Fatal; use Carp 'confess'; sub exception_like(&$;$) { my ($code, $pattern, $name) = @_; like( &exception($code), $pattern, $name ); } exception_like(sub { confess 'blah blah' }, qr/foo/, 'foo seems to appear in the exception'); # the test only passes when we invert it unlike( ( exception { confess 'blah blah' } || '' ), qr/foo/, 'foo does NOT ACTUALLY appear in the exception', ); done_testing;