view release on metacpan or  search on metacpan

t/simple.t  view on Meta::CPAN

ok($g->answer eq "**ee**", "guess should be **ee**");
ok($g->guesses == 7, "guesses should be contain a,b,c,d,e,f,g");

ok(!defined($g->guess("h")), "should not accept guess ok");

$g = Games::GuessWord->new(file => "t/words");
ok($g, "should create object ok");
foreach (1..21) {
#  print $g->secret . "\n";
  $g->new_word;
  ok($g->secret =~ /^(awake|asleep|alive)$/, "should read word in ok");
}

t/words  view on Meta::CPAN

awake
asleep
alive