[perl5.git] / lib / diagnostics.t

#!./perl

BEGIN {
    if ($^O eq 'MacOS') {
	chdir '::' if -d '::pod' && -d '::t';
	@INC = ':lib:';
    } else {
	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));
};

like( $@, qr/^Base class package "I::do::not::exist" is empty/);
Commit	Line	Data
f5ad5489 GS	1	#!./perl
	2
	3	BEGIN {
d5201bd2 JH	4	if ($^O eq 'MacOS') {
	5	chdir '::' if -d '::pod' && -d '::t';
	6	@INC = ':lib:';
	7	} else {
	8	chdir '..' if -d '../pod' && -d '../t';
	9	@INC = 'lib';
	10	}
f5ad5489 GS	11	}
f5ad5489 GS	12
d23f0205	13	use Test::More tests => 2;
f5ad5489	14
d23f0205	15	BEGIN { use_ok('diagnostics') }
f5ad5489	16
d23f0205	17	require base;
f5ad5489	18
d23f0205 MS	19	eval {
	20	'base'->import(qw(I::do::not::exist));
	21	};
f5ad5489	22
f0e510f6	23	like( $@, qr/^Base class package "I::do::not::exist" is empty/);