I don't think trying to bracket the hires time with lores
[p5sagit/p5-mst-13.2.git] / lib / diagnostics.t
CommitLineData
f5ad5489 1#!./perl
2
3BEGIN {
20822f61 4 chdir '..' if -d '../pod' && -d '../t';
5 @INC = 'lib';
f5ad5489 6}
7
d23f0205 8use Test::More tests => 2;
f5ad5489 9
d23f0205 10BEGIN { use_ok('diagnostics') }
f5ad5489 11
d23f0205 12require base;
f5ad5489 13
d23f0205 14eval {
15 'base'->import(qw(I::do::not::exist));
16};
f5ad5489 17
d23f0205 18is( $@, '', 'diagnostics not tripped up by "use base qw(Dont::Exist)"' );