[perl5.git] / t / lib / croak.t

#!./perl
# So far, it seems, there is no place to test all the Perl_croak() calls in the
# C code. So this is a start. It's likely that it needs refactoring to be data
# driven. Data driven code exists in various other tests - best plan would be to
# investigate whether any common code library already exists, and if not,
# refactor the "donor" test code into a common code library.

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
    plan( tests => 1 );
}

use strict;

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