BEGIN { plan
tests
=> 15 }
ok(1);
my
@hol0
=
qw( As Ac )
;
my
@hol1
=
qw( Ad Kh )
;
my
@hol2
=
qw( Ah Kd )
;
my
@bord
=
qw( 9s 3d Ks )
;
my
@best
= BestIndices(
@hol0
,
@bord
);
my
@crdz
=
@hol0
;
push
(
@crdz
,
@bord
);
my
@hand
= ();
foreach
(
@best
) {
push
(
@hand
,
$crdz
[
$_
]); }
my
$scor
= ScoreHand(
@hand
);
ok(
$scor
, 3357);
$scor
= ScoreHand(BestHand(BestIndices(
@hol0
,
@bord
),
@hol0
,
@bord
));
ok(
$scor
, 3357);
$scor
= ScoreHand(BestHand(
@hol0
,
@bord
));
ok(
$scor
, 3357);
$scor
= ScoreHand(BestHand(
@hol1
,
@bord
));
ok(
$scor
, 3577);
@bord
=
qw( 9s 3d Ks 3c )
;
$scor
= ScoreHand(BestHand(
@hol0
,
@bord
));
ok(
$scor
, 2577);
$scor
= ScoreHand(BestHand(
@hol1
,
@bord
));
ok(
$scor
, 2698);
$scor
= ScoreHand(BestHand(
@hol2
,
@bord
));
ok(
$scor
, 2698);
@bord
=
qw( 9s 3d Ks 3c Kc )
;
$scor
= ScoreHand(BestHand(
@hol0
,
@bord
));
ok(
$scor
, 2470);
$scor
= ScoreHand(BestHand(
@hol1
,
@bord
));
ok(
$scor
, 188);
$scor
= ScoreHand(BestHand(
@hol2
,
@bord
));
ok(
$scor
, 188);
$scor
= ScoreHand(
'AT944'
);
ok(
$scor
, 5552);
$scor
= ScoreHand(
'AT943s'
);
ok(
$scor
, 708);
@hand
=
qw( As Ts 9s 4s 4h )
;
$scor
= ScoreHand(\
@hand
);
ok(
$scor
, 5552);
$hand
[4] =
'3s'
;
$scor
= ScoreHand(\
@hand
);
ok(
$scor
, 708);