extra code in pp_concat, Take 2
[p5sagit/p5-mst-13.2.git] / lib / diagnostics.t
CommitLineData
f5ad5489 1#!./perl
2
3BEGIN {
d5201bd2 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 11}
12
d23f0205 13use Test::More tests => 2;
f5ad5489 14
d23f0205 15BEGIN { use_ok('diagnostics') }
f5ad5489 16
d23f0205 17require base;
f5ad5489 18
d23f0205 19eval {
20 'base'->import(qw(I::do::not::exist));
21};
f5ad5489 22
f0e510f6 23like( $@, qr/^Base class package "I::do::not::exist" is empty/);