view release on metacpan or  search on metacpan

t/05-wrongs.t  view on Meta::CPAN

	#plan tests => 26 + $add;
	eval {require Data::Dumper;Data::Dumper::Dumper(1)}
		and *dd = sub ($) { Data::Dumper->new([$_[0]])->Indent(0)->Terse(1)->Quotekeys(0)->Useqq(1)->Purity(1)->Dump }
		or  *dd = \&explain;
}

use XML::Fast 'xml2hash';

sub dies_ok(&;@) {
	my $code = shift;
	my $name = pop || 'line '.(caller)[2];
	my $qr = shift;
	local $@;
	if( eval { $code->(); 1} ) {
		fail $name;
	} else {
		if ($qr) {
			like $@,$qr,"$name - match ok";
		} else {
			diag "died with $@";
		}