parent
77f79c3e77
commit
f7f9439d76
|
@ -42,7 +42,7 @@ handle remainder => sub {
|
|||
|
||||
return $response, structured_answer => {
|
||||
data => {
|
||||
title => html_enc($response),
|
||||
title => $response,
|
||||
subtitle => "Magic eight ball's answer to: ".html_enc($_)
|
||||
},
|
||||
templates => {
|
||||
|
|
|
@ -9,13 +9,13 @@ use DDG::Test::Goodie;
|
|||
zci answer_type => "magic_eight_ball";
|
||||
zci is_cached => 0;
|
||||
|
||||
my $possibleAnswers = re(qr/(It is certain|It is decidedly so|Without a doubt|Yes, definitely|You may rely on it|As I see it, yes|Most likely|Outlook good|Yes|Signs point to yes|Reply hazy try again|Ask again later|Better not tell you now|Cannot predict now|Concentrate and ask again|Don(?:'|')t count on it|My reply is no|My sources say no|Outlook not so good|Very doubtful)/);
|
||||
my $possibleAnswers = re(qr/(It is certain|It is decidedly so|Without a doubt|Yes, definitely|You may rely on it|As I see it, yes|Most likely|Outlook good|Yes|Signs point to yes|Reply hazy try again|Ask again later|Better not tell you now|Cannot predict now|Concentrate and ask again|Don't count on it|My reply is no|My sources say no|Outlook not so good|Very doubtful)/);
|
||||
|
||||
sub build_test {
|
||||
my ($input) = @_;
|
||||
return test_zci($possibleAnswers, structured_answer =>{
|
||||
data => {
|
||||
title => $possibleAnswers,
|
||||
title => $possibleAnswers,
|
||||
subtitle => "Magic eight ball's answer to: $input"
|
||||
},
|
||||
templates => {
|
||||
|
@ -30,8 +30,8 @@ ddg_goodie_test(
|
|||
'magic 8 ball should I wear red today?' => build_test('should I wear red today?'),
|
||||
'magic eight-ball are you actually helpful' => build_test('are you actually helpful'),
|
||||
'eight ball will this work?' => undef,
|
||||
'magic 8ball Yes?' => undef,
|
||||
'magic 8ball' => undef
|
||||
'magic 8ball Yes?' => undef,
|
||||
'magic 8ball' => undef
|
||||
);
|
||||
|
||||
done_testing;
|
||||
|
|
Loading…
Reference in New Issue