PigLatin.pm

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;

zci answer_type => 'translation';
zci is_cached => 1;

ddg_goodie_test(
	[qw(
		DDG::Goodie::PigLatin
	)],
	'pig latin will this work?' => test_zci('Pig Latin: illway isthay orkway?'),
	'piglatin i love duckduckgo' => test_zci('Pig Latin: iway ovelay uckduckgoday'),
);

done_testing;