1#!./perl 2 3BEGIN { 4 chdir '..' if -d '../pod' && -d '../t'; 5 @INC = 'lib'; 6} 7 8use Test::More tests => 3; 9 10BEGIN { use_ok('diagnostics') } 11 12require base; 13 14eval { 15 'base'->import(qw(I::do::not::exist)); 16}; 17 18like( $@, qr/^Base class package "I::do::not::exist" is empty/); 19 20# Test for %.0f patterns in perldiag, added in 5.11.0 21close STDERR; 22open STDERR, ">", \my $warning 23 or die "Couldn't redirect STDERR to var: $!"; 24warn('gmtime(nan) too large'); 25like $warning, qr/\(W overflow\) You called/, '%0.f patterns'; 26