4 if( $ENV{PERL_CORE} ) {
6 @INC = qw(../lib ../t/lib);
11 use Test::More tests => 2;
18 local $SIG{__DIE__} = sub {
19 ::fail('sigdie not caught, this test should not run')
22 'base'->import(qw(Huh::Boo));
25 ::like($@, qr/^Base class package "Huh::Boo" is empty/,
26 'Base class empty error message');
34 base->import(qw(HasSigDie));
35 ok $SIG{__DIE__}, 'base.pm does not mask SIGDIE';