Message-ID: <f1gj4usu5m76bv88a3ldptnmo6ld7d44ri@4ax.com>
[p5sagit/p5-mst-13.2.git] / lib / diagnostics.t
1 #!./perl
2
3 BEGIN {
4     chdir '..' if -d '../pod' && -d '../t';
5     @INC = 'lib';
6 }
7
8 use Test::More tests => 2;
9
10 BEGIN { use_ok('diagnostics') }
11
12 require base;
13
14 eval {
15     'base'->import(qw(I::do::not::exist));
16 };
17
18 is( $@, '',   'diagnostics not tripped up by "use base qw(Dont::Exist)"' );