use Test::Simple tests => 11;
ok (my $JackThief = Games::JackThief->new(), 'new called');
ok( defined($JackThief) && ref $JackThief eq 'Games::JackThief', 'Constructor new() works' );
ok( $JackThief->{no_of_Decks} =~ m/\d+/, 'Default no_of_Decks fine' );
ok( $JackThief->{no_of_Players} =~ m/\d+/, 'Default no_of_Players fine' );
ok (my $JackThief = Games::JackThief->new({no_of_Decks => 5, no_of_Players => 10}), 'new alled with param');
ok( $JackThief->{no_of_Decks} =~ m/\d+/, 'Parameterized no_of_Decks fine' );
ok( $JackThief->{no_of_Decks} =~ m/\d+/, 'Parameterized no_of_Decks fine' );
ok ($JackThief->JackThief_Hand, 'JackThief_Hand works');
ok ($JackThief->CreateFetchSeq, 'CreateFetchSeq works');
ok ($JackThief->JackThief_RunFetchRound, 'JackThief_RunFetchRound works');
ok ($JackThief->LooserFound, 'LooserFound works');