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 8BEGIN { 9 chdir 't' if -d 't'; 10 @INC = '../lib'; 11 require './test.pl'; 12 plan( tests => 1 ); 13} 14 15use strict; 16 17fresh_perl_is(<<'EOF', 'No such hook: _HUNGRY at - line 1.', {}, 'Perl_magic_setsig'); 18$SIG{_HUNGRY} = \&mmm_pie; 19warn "Mmm, pie"; 20EOF 21