[perl5.git] / lib / diagnostics.t

#!./perl

BEGIN {
    chdir '..' if -d '../pod' && -d '../t';
    @INC = 'lib';
}

use Test::More tests => 2;

BEGIN { use_ok('diagnostics') }

require base;

eval {
    'base'->import(qw(I::do::not::exist));
};

is( $@, '',   'diagnostics not tripped up by "use base qw(Dont::Exist)"' );
Commit	Line	Data
f5ad5489 GS	1	#!./perl
	2
	3	BEGIN {
20822f61 MG	4	chdir '..' if -d '../pod' && -d '../t';
20822f61 MG	5	@INC = 'lib';
f5ad5489 GS	6	}
f5ad5489 GS	7
d23f0205	8	use Test::More tests => 2;
f5ad5489	9
d23f0205	10	BEGIN { use_ok('diagnostics') }
f5ad5489	11
d23f0205	12	require base;
f5ad5489	13
d23f0205 MS	14	eval {
	15	'base'->import(qw(I::do::not::exist));
	16	};
f5ad5489	17
d23f0205	18	is( $@, '', 'diagnostics not tripped up by "use base qw(Dont::Exist)"' );