Mini Shell
Mini Shell
| Direktori : /usr/share/doc/perl-Test-Simple/t/Legacy_And_Test2/ |
| Current File : //usr/share/doc/perl-Test-Simple/t/Legacy_And_Test2/hidden_warnings.t |
use strict;
use warnings;
use Test2::Tools::Tiny;
use Test2::API qw( context_do );
$SIG{__WARN__} = sub {
context_do { shift->throw("oops\n"); }
$_[0];
};
my $array_var = [];
eval { warn "trigger warning" };
my $err = $@;
like(
$err,
qr/oops/,
"Got expected error"
);
done_testing();