view release on metacpan or  search on metacpan

t/checker.t  view on Meta::CPAN

my $c1 = eval config_checker_source;
BAIL_OUT($@) if $@;
ok(1, 'eval');

eval validate_config(clone($good_config), $prototype_config);
is($@, '', 'good config');

my $config;

sub mangle_and_test(&@)
{
	my ($mangle, $message, $name) = @_;
	$config = clone($good_config);
	&$mangle;
	eval { validate_config($config, $prototype_config) };
	like($@, qr/$message/, $name || $message);
}

mangle_and_test { $config->{jobs}[0]{output_format} = 'NewFangled' } 'invalid parser';