40 lines
1.1 KiB
Perl
40 lines
1.1 KiB
Perl
#!/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?',
|
|
structured_answer => {
|
|
input => ['will this work?'],
|
|
operation => 'Translate to Pig Latin',
|
|
result => 'illway isthay orkway?'
|
|
}
|
|
),
|
|
'piglatin i love duckduckgo' => test_zci(
|
|
'Pig Latin: iway ovelay uckduckgoday',
|
|
structured_answer => {
|
|
input => ['i love duckduckgo'],
|
|
operation => 'Translate to Pig Latin',
|
|
result => 'iway ovelay uckduckgoday'
|
|
}
|
|
),
|
|
'pig latin i love duckduckgo' => test_zci(
|
|
'Pig Latin: iway ovelay uckduckgoday',
|
|
structured_answer => {
|
|
input => ['i love duckduckgo'],
|
|
operation => 'Translate to Pig Latin',
|
|
result => 'iway ovelay uckduckgoday'
|
|
}
|
|
),
|
|
);
|
|
|
|
done_testing;
|