xref: /openbsd/gnu/usr.bin/perl/dist/base/t/sigdie.t (revision b39c5158) 
1#!/usr/bin/perl -w
2
3use strict;
4use Test::More tests => 2;
5
6use base;
7
8{
9    package Test::SIGDIE;
10
11    local $SIG{__DIE__} = sub {
12        ::fail('sigdie not caught, this test should not run')
13    };
14    eval {
15      'base'->import(qw(Huh::Boo));
16    };
17
18    ::like($@, qr/^Base class package "Huh::Boo" is empty/,
19         'Base class empty error message');
20}
21
22
23{
24    use lib 't/lib';
25
26    local $SIG{__DIE__};
27    base->import(qw(HasSigDie));
28    ok $SIG{__DIE__}, 'base.pm does not mask SIGDIE';
29}
30