view release on metacpan or  search on metacpan

t/Email-Address-XS.t  view on Meta::CPAN

use Test::More tests => 516;
use Test::Builder;

local $SIG{__WARN__} = sub {
	local $Test::Builder::Level = $Test::Builder::Level + 1;
	fail('following test does not throw warning');
	warn $_[0];
};

sub with_warning(&) {
	my ($code) = @_;
	local $Test::Builder::Level = $Test::Builder::Level + 1;
	my $warn;
	local $SIG{__WARN__} = sub { $warn = 1; };
	my @ret = wantarray ? $code->() : scalar $code->();
	ok($warn, 'following test throws warning');
	return wantarray ? @ret : $ret[0];
}

sub obj_to_hashstr {