zeroclickinfo-goodies/t/ABC.t

69 lines
2.0 KiB
Perl
Raw Normal View History

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => 'choice';
zci is_cached => 0;
sub create_structured_answer
{
return {
id => 'abc',
name => 'Answer',
data => '-ANY-',
templates => {
group => 'text',
moreAt => 0
}
};
}
ddg_goodie_test(
[qw( DDG::Goodie::ABC )],
'choose' => undef,
'i choose' => undef,
'choose or' => undef,
'choose my house or your house' => undef,
'choose his or her house' => undef,
'choose his or or her house' => undef,
'choose from products like turkey or venison' => undef,
'choose pick or axe' => test_zci(
qr/(pick|axe) \(Random\)/,
structured_answer => create_structured_answer()
),
'choose yes or no' => test_zci(
qr/(yes|no) \(Random\)/,
structured_answer => create_structured_answer()
),
'choose this or that or none' => test_zci(
qr/(this|that|none) \(Random\)/,
structured_answer => create_structured_answer()
),
'pick this or that or none' => test_zci(
qr/(this|that|none) \(Random\)/,
structured_answer => create_structured_answer()
),
'select heads or tails' => test_zci(
qr/(heads|tails) \(Random\)/,
structured_answer => create_structured_answer()
),
'choose heads or tails' => test_zci(
qr/(heads|tails) \(Random\)/,
structured_answer => create_structured_answer()
),
'choose duckduckgo or google or bing or something' => test_zci(
'duckduckgo (Non-random)',
structured_answer => create_structured_answer()
),
'choose Google OR DuckDuckGo OR Bing OR SOMETHING' => test_zci(
'DuckDuckGo (Non-random)',
structured_answer => create_structured_answer()
),
);
done_testing;