I don't think trying to bracket the hires time with lores
[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)"' );