[p5sagit/p5-mst-13.2.git] / lib / diagnostics.t

#!./perl

BEGIN {
    chdir '..' if -d '../pod' && -d '../t';
    @INC = 'lib';
}

use Test::More tests => 3;

BEGIN { use_ok('diagnostics') }

require base;

eval {
    'base'->import(qw(I::do::not::exist));
};

like( $@, qr/^Base class package "I::do::not::exist" is empty/);

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