Commit | Line | Data |
---|---|---|
4b63d99d NC |
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 |