Rename tied_handle_method() to tied_method(), and make it non-static.
[perl.git] / 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';