blob: 486f8f6dd8f8889775f3e84e1afadc416c853fe3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!./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)"' );
|
