use Test;
BEGIN { plan tests => 31 }
use Games::Cards::Poker qw(:all);
ok(1);
my %pdat = PDat(); my $summ = 0; # make sure hand counts add up correctly
$summ += $_->[1] foreach(@{$pdat{'hndz'}});
ok($summ, $pdat{'coun'}{'hands'});
my @bord = qw( 9s 3d Ks 3c Kc );
RemoveCard('9s', \@bord);
my $bord = "@bord";
ok($bord, '3d Ks 3c Kc');
RemoveCard('3c', \@bord);
$bord = "@bord";
ok($bord, '3d Ks Kc');
RemoveCard('Ks', \@bord);
$bord = "@bord";
ok($bord, '3d Kc');
my $wrst = WorstHand('AA');
ok($wrst, 'AA432');
$wrst = WorstHand('AK');
ok($wrst, 'AK432');
$wrst = WorstHand('32');
ok($wrst, '75432');
$wrst = WorstHand('32s');
ok($wrst, '75432');
$wrst = WorstHand('As', 'Ah');
ok($wrst, 'AA432');
$wrst = WorstHand('As', 'Kh');
ok($wrst, 'AK432');
$wrst = WorstHand('3s', '2h');
ok($wrst, '75432');
$wrst = WorstHand('3s', '2s');
ok($wrst, '75432');
$wrst = WorstHand('As', 'Ah', 'Kh', 'Qh', 'Jh', 'Th', '7s');
ok($wrst, 'AKQJTs');
$wrst = WorstHand('As', 'Ah', 'Kh', 'Qh', 'Jh', 'Td', '7s');
ok($wrst, 'AKQJT');
$wrst = WorstHand('As', 'Ad', 'Ac', 'Ah', 'Kh', 'Qh', 'Jh', 'Td', '7s');
ok($wrst, 'AAAAK');
$wrst = WorstHand('As', 'Ad', 'Ac', 'Kh', 'Qh', 'Jh', '8d', '7s');
ok($wrst, 'AAAKQ');
$wrst = WorstHand('As', 'Ad', 'Kh', 'Qh', 'Jh', '8d', '7s');
ok($wrst, 'AAKQJ');
my %zdnh = Zdnh();
my $coun = $zdnh{'AKQJTs'};
ok($coun, 0);
$coun = CountWays($zdnh{'KKKKJ'});
ok($coun, 100);
$coun = CountWays($zdnh{'AKQJTs'});
ok($coun, 4);
$coun = CountWays($zdnh{'KQJT9s'});
ok($coun, 8);
$coun = CountWays($zdnh{'AKQJT'});
ok($coun, 10536);
$coun = CountWays($zdnh{'AAAAK'});
ok($coun, 44);
$coun = CountWays($zdnh{'AAAKQ'});
ok($coun, 19780);
$coun = CountWays($zdnh{'AAKQJ'});
ok($coun, 198564);
$coun = CountWays(7461);
ok($coun, 2598960);
ok($coun, $pdat{'coun'}{'hands'});
$coun = CountWays(9999);
ok($coun, 2598960);
$coun = CountWays($zdnh{'87432'});
ok($coun, 2589780);
$coun = scalar(@{$pdat{'flpz'}});
ok($coun, $pdat{'coun'}{'shorthand_flops'});
# these are wrong so it doesn't matter to test them
#$coun = CalcOdds(0);
#&report($coun == 0.85, "$coun\n");
#my %zloh = Zloh();
#$coun = CalcOdds($zloh{'22'});
#&report($coun == 0.49, "$coun\n");