extra code in pp_concat, Take 2
[p5sagit/p5-mst-13.2.git] / lib / diagnostics.t
1 #!./perl
2
3 BEGIN {
4     if ($^O eq 'MacOS') {
5         chdir '::' if -d '::pod' && -d '::t';
6         @INC = ':lib:';
7     } else {
8         chdir '..' if -d '../pod' && -d '../t';
9         @INC = 'lib';
10     }
11 }
12
13 use Test::More tests => 2;
14
15 BEGIN { use_ok('diagnostics') }
16
17 require base;
18
19 eval {
20     'base'->import(qw(I::do::not::exist));
21 };
22
23 like( $@, qr/^Base class package "I::do::not::exist" is empty/);