t/lib/croak.t

   1 #!./perl
   2 # So far, it seems, there is no place to test all the Perl_croak() calls in the
   3 # C code. So this is a start. It's likely that it needs refactoring to be data
   4 # driven. Data driven code exists in various other tests - best plan would be to
   5 # investigate whether any common code library already exists, and if not,
   6 # refactor the "donor" test code into a common code library.
   7
   8 BEGIN {
   9     chdir 't' if -d 't';
  10     @INC = '../lib';
  11     require './test.pl';
  12     plan( tests => 1 );
  13 }
  14
  15 use strict;
  16
  17 fresh_perl_is(<<'EOF', 'No such hook: _HUNGRY at - line 1.', {}, 'Perl_magic_setsig');
  18 $SIG{_HUNGRY} = \&mmm_pie;
  19 warn "Mmm, pie";
  20 EOF