duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #3077 from duckduckgo/mintsoft-magiceightball 

MagicEightBall: Converting to text template
master
Ben Moon 2016-05-23 12:03:30 +01:00
parent 4494d6702c 8091fa7917
commit 77f79c3e77
2 changed files with 27 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/DDG/Goodie/MagicEightBall.pm Normal file → Executable file
View File

@ -10,7 +10,8 @@ zci is_cached => 0;
triggers start => "magic eight ball", "magic 8 ball", "magic eight-ball", "magic 8-ball", "magic 8ball";
#These are the standard responses found in a magic eight ball
my @eightBallresponses = ("It is certain",
my @eightBallresponses = (
"It is certain",
"It is decidedly so",
"Without a doubt",
"Yes, definitely",
@ -39,12 +40,15 @@ handle remainder => sub {
srand();
my $response = $eightBallresponses[int rand scalar @eightBallresponses];
return $response,
structured_answer => {
input => [html_enc($_)],
operation => "Magic eight ball's answer to",
result => html_enc($response),
};
return $response, structured_answer => {
data => {
title => html_enc($response),
subtitle => "Magic eight ball's answer to: ".html_enc($_)
},
templates => {
group => 'text'
}
};
};
1;

42
t/MagicEightBall.t Normal file → Executable file
View File

@ -9,36 +9,26 @@ 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)/);
my $possibleStructuredAnswer = 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,
subtitle => "Magic eight ball's answer to: $input"
},
templates => {
group => 'text'
}
});
}
ddg_goodie_test(
[qw( DDG::Goodie::MagicEightBall )],
'magic eight ball is it going to rain today' => test_zci(
$possibleAnswers,
structured_answer => {
input => ['is it going to rain today'],
operation => "Magic eight ball's answer to",
result => $possibleStructuredAnswer,
}
),
'magic 8 ball should I wear red today?' => test_zci(
$possibleAnswers,
structured_answer => {
input => ['should I wear red today?'],
operation => "Magic eight ball's answer to",
result => $possibleStructuredAnswer,
}
),
'magic eight-ball are you actually helpful' => test_zci(
$possibleAnswers,
structured_answer => {
input => ['are you actually helpful'],
operation => "Magic eight ball's answer to",
result => $possibleStructuredAnswer,
}
),
'magic eight ball is it going to rain today' => build_test('is it going to rain 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'),
'eight ball will this work?' => undef,
'magic 8ball Yes?' => undef,
'magic 8ball' => undef