39 lines
1.7 KiB
Perl
39 lines
1.7 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use Test::Deep;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => "poker";
|
|
zci is_cached => 1;
|
|
|
|
ddg_goodie_test(
|
|
[qw(
|
|
DDG::Goodie::Poker
|
|
)],
|
|
'poker odds flush' => test_zci(
|
|
'The odds of getting a flush in poker are 508 : 1.',
|
|
html => 'The odds of getting a flush in poker are 508 : 1. More at <a href="https://en.wikipedia.org/wiki/List_of_poker_hands#Flush">Wikipedia</a>.'
|
|
),
|
|
'Probability poker Two Pair' => test_zci(
|
|
'The probability of getting a two pair in poker is 4.75%.',
|
|
html => 'The probability of getting a two pair in poker is 4.75%. More at <a href="https://en.wikipedia.org/wiki/List_of_poker_hands#Two_pair">Wikipedia</a>.'
|
|
),
|
|
'frequency royal flush poker' => test_zci(
|
|
'The frequency of a royal flush in poker is 4 out of 2,598,960.',
|
|
html => 'The frequency of a royal flush in poker is 4 out of 2,598,960. More at <a href="https://en.wikipedia.org/wiki/List_of_poker_hands#Royal_flush">Wikipedia</a>.'
|
|
),
|
|
'poker odds three of a kind' => test_zci(
|
|
'The odds of getting a three of a kind in poker are 46.3 : 1.',
|
|
html => 'The odds of getting a three of a kind in poker are 46.3 : 1. More at <a href="https://en.wikipedia.org/wiki/List_of_poker_hands#Three_of_a_kind">Wikipedia</a>.'
|
|
),
|
|
'probability poker flush' => test_zci(
|
|
'The probability of getting a flush in poker is 0.197%.',
|
|
html => 'The probability of getting a flush in poker is 0.197%. More at <a href="https://en.wikipedia.org/wiki/List_of_poker_hands#Flush">Wikipedia</a>.'
|
|
),
|
|
);
|
|
|
|
done_testing;
|