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