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/);