Use a non-development version for Cwd because XSLoader tests don't like those
[perl.git] / ext / base / t / sigdie.t
1 #!/usr/bin/perl -w
2
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 }