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

pick a card

master
matt lehning 2013-01-28 14:33:49 -05:00
parent 8347023bb0
commit 36caf88475
2 changed files with 54 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lib/DDG/Goodie/Card.pm Normal file
View File

@ -0,0 +1,30 @@
package DDG::Goodie::Card;
use DDG::Goodie;
triggers start => 'choose', 'pick', 'card';
handle query_lc => sub {
return unless my ($a, $unused, $unused2, $n) = $_ =~ /^((choose|pick) a card|(pick|choose) (\d{0,2}) cards?)$/;
my @output;
my @choices = ("ace of spades", "1 of spades", "2 of spades", "3 of spades", "4 of spades", "5 of spades", "6 of spades", "7 of spades", "8 of spades", "9 of spades", "10 of spades", "jack of spades", "queen of spades", "king of spades", "ace of spades", "1 of diamonds", "2 of diamonds", "3 of diamonds", "4 of diamonds", "5 of diamonds", "6 of diamonds", "7 of diamonds", "8 of diamonds", "9 of diamonds", "10 of diamonds", "jack of diamonds", "queen of diamonds", "king of diamonds", "ace of hearts", "1 of hearts", "2 of hearts", "3 of hearts", "4 of hearts", "5 of hearts", "6 of hearts", "7 of hearts", "8 of hearts", "9 of hearts", "10 of hearts", "jack of hearts", "queen of hearts", "king of hearts", "ace of clubs", "1 of clubs", "2 of clubs", "3 of clubs", "4 of clubs", "5 of clubs", "6 of clubs", "7 of clubs", "8 of clubs", "9 of clubs", "10 of clubs", "jack of clubs", "queen of clubs", "king of clubs");
my $cards = 1;
my $card;
my $b = "pick a card";
my $c = "choose a card";
my $count;
if($a eq $b||$a eq $c) {
$n = 1;
}
if($n >= 1) {
for ($count = 1; $count <= $n; $count++) {
$card = $choices[int rand @choices];
push @output, $card;
}
}
return join(' ', @output, '(random)') if @output;
};
1;

24
t/Card.t Normal file
View File

@ -0,0 +1,24 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => 'card';
zci is_cached => 0;
ddg_goodie_test(
[qw(
DDG::Goodie::Card
)],
'pick a card' => test_zci(qr/(\d|ace|jack|queen|king) of (clubs|spades|diamonds|hearts) \(random\)/),
'pick 1 card' => test_zci(qr/(\d|ace|jack|queen|king) of (clubs|spades|diamonds|hearts) \(random\)/),
'pick 2 cards' => test_zci(qr/(\d|ace|jack|queen|king) of (clubs|spades|diamonds|hearts) (\d|ace|jack|queen|king) of (clubs|spades|diamonds|hearts) \(random\)/),
# 'choose a card' => test_zci(qr/(\d|ace|jack|queen|king) of (clubs|spades|diamonds|hearts) \(random\)/),
# 'choose 1 card' => test_zci(qr/(\d|ace|jack|queen|king) of (clubs|spades|diamonds|hearts) \(random\)/),
# 'choose 2 cards' => test_zci(qr/(\d|ace|jack|queen|king) of (clubs|spades|diamonds|hearts) (\d|ace|jack|queen|king) of (clubs|spades|diamonds|hearts) \(random\)/),
);
done_testing;