dist/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 }