view release on metacpan or  search on metacpan

lib/Kelp/Module/YAML/KelpExtensions.pm  view on Meta::CPAN

	};
	return $result;
}

sub Kelp::Test::yaml_cmp
{
	my ($self, $expected, $test_name) = @_;
	local $Test::Builder::Level = $Test::Builder::Level + 1;

	$test_name ||= "YAML structure matches";
	like $self->res->header('content-type'), qr/yaml/, 'Content-Type is YAML'
		or return $self;
	my $json = $self->yaml_content;
	cmp_deeply($json, $expected, $test_name) or diag explain $json;
	return $self;
}

1;