use Test;
BEGIN { plan tests => 7 }

use Games::Cards::Poker qw(:all);

ok(1);
# what needs to sort:
#  'A'..'2'
#  'As'..'Ac'
#  'AA','AKs','AK'..'A2'
#  'AAA','AAK'..'AKQs','AKQ'..'222'
#  'AAAAK','AAAAQ'..'AKQJTs','AKQJT'..'32222' # based on rank values not scores
my @hand = qw( A K J 9 Q T 7 );
my $shrt = ShortHand(SortCards(\@hand));
ok($shrt, 'AKQJT97');

@hand = Deck();
$shrt = ShortHand(SortCards(\@hand));
ok($shrt, 'AAAAKKKKQQQQJJJJTTTT99998888777766665555444433332222');

@hand = Shuffle(Deck());
$shrt = ShortHand(SortCards(\@hand));
ok($shrt, 'AAAAKKKKQQQQJJJJTTTT99998888777766665555444433332222');

@hand = qw( AA AQ AQs AKs A2 A2s K2 22 AK );
SortCards(\@hand);
my $hand = "@hand"; 
ok($hand, 'AA AKs AK AQs AQ A2s A2 K2 22');

@hand = qw( A32 AKQ 222 AAQ A32s AAK AAA AKQs );
SortCards(\@hand);
$hand = "@hand"; 
ok($hand, 'AAA AAK AAQ AKQs AKQ A32s A32 222');

@hand = qw( A5432 AKQJT 32222 AAAAQ AKQJTs A5432s AAAAK );
SortCards(\@hand);
$hand = "@hand"; 
ok($hand, 'AAAAK AAAAQ AKQJTs AKQJT A5432s A5432 32222');