Commit | Line | Data |
9e998a43 |
1 | #!/usr/bin/perl -w |
2 | |
9e998a43 |
3 | use strict; |
4 | use Test::More tests => 2; |
5 | |
6 | use 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 | } |