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 => 3;
   9
  10 BEGIN { use_ok('diagnostics') }
  11
  12 require base;
  13
  14 eval {
  15     'base'->import(qw(I::do::not::exist));
  16 };
  17
  18 like( $@, qr/^Base class package "I::do::not::exist" is empty/);
  19
  20 # Test for %.0f patterns in perldiag, added in 5.11.0
  21 close STDERR;
  22 open STDERR, ">", \my $warning
  23     or die "Couldn't redirect STDERR to var: $!";
  24 warn('gmtime(nan) too large');
  25 like $warning, qr/\(W overflow\) You called/, '%0.f patterns';