parent
77f79c3e77
commit
f7f9439d76
|
@ -42,7 +42,7 @@ handle remainder => sub {
|
||||||
|
|
||||||
return $response, structured_answer => {
|
return $response, structured_answer => {
|
||||||
data => {
|
data => {
|
||||||
title => html_enc($response),
|
title => $response,
|
||||||
subtitle => "Magic eight ball's answer to: ".html_enc($_)
|
subtitle => "Magic eight ball's answer to: ".html_enc($_)
|
||||||
},
|
},
|
||||||
templates => {
|
templates => {
|
||||||
|
|
|
@ -9,13 +9,13 @@ use DDG::Test::Goodie;
|
||||||
zci answer_type => "magic_eight_ball";
|
zci answer_type => "magic_eight_ball";
|
||||||
zci is_cached => 0;
|
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 {
|
sub build_test {
|
||||||
my ($input) = @_;
|
my ($input) = @_;
|
||||||
return test_zci($possibleAnswers, structured_answer =>{
|
return test_zci($possibleAnswers, structured_answer =>{
|
||||||
data => {
|
data => {
|
||||||
title => $possibleAnswers,
|
title => $possibleAnswers,
|
||||||
subtitle => "Magic eight ball's answer to: $input"
|
subtitle => "Magic eight ball's answer to: $input"
|
||||||
},
|
},
|
||||||
templates => {
|
templates => {
|
||||||
|
@ -30,8 +30,8 @@ ddg_goodie_test(
|
||||||
'magic 8 ball should I wear red today?' => build_test('should I wear red today?'),
|
'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'),
|
'magic eight-ball are you actually helpful' => build_test('are you actually helpful'),
|
||||||
'eight ball will this work?' => undef,
|
'eight ball will this work?' => undef,
|
||||||
'magic 8ball Yes?' => undef,
|
'magic 8ball Yes?' => undef,
|
||||||
'magic 8ball' => undef
|
'magic 8ball' => undef
|
||||||
);
|
);
|
||||||
|
|
||||||
done_testing;
|
done_testing;
|
||||||
|
|
Loading…
Reference in New Issue