123456789101112131415 #!perluse strict;use warnings;use Test::More;use Test::Exception;require_ok( 'Enbld::Error' );throws_ok { die Enbld::Error->new( 'error message' );} qr/ERROR:error message\n/, 'captured message';done_testing();
#!perl
use
strict;
warnings;
Test::More;
Test::Exception;
require_ok(
'Enbld::Error'
);
throws_ok {
die
Enbld::Error->new(
'error message'
}
qr/ERROR:error message\n/
,
'captured message'
;
done_testing();