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.
17 fresh_perl_is(<<'EOF', 'No such hook: _HUNGRY at - line 1.', {}, 'Perl_magic_setsig');
18 $SIG{_HUNGRY} = \&mmm_pie;