blob: d9855a9fcc5a1fd880d121b0d211761fbfb0ac45 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!./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/);
|
