diff options
Diffstat (limited to 't/021-is-word.t')
-rw-r--r-- | t/021-is-word.t | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/t/021-is-word.t b/t/021-is-word.t index ab3a8cc..076a0e9 100644 --- a/t/021-is-word.t +++ b/t/021-is-word.t @@ -1,25 +1,21 @@ #!perl -T use strict; use warnings; -use Test::More tests => 3; +use Test::More tests => 2; use Test::Exception; -use Games::Word qw/set_word_list random_word is_word/; +use Games::Word::Wordlist; my $word_file = ''; -$word_file = '/usr/dict/words' if (-f '/usr/dict/words'); -$word_file = '/usr/share/dict/words' if (-f '/usr/share/dict/words'); - -lives_ok(sub { is_word "blah" }, - "testing calling a function before setting a word list"); +$word_file = '/usr/dict/words' if -r '/usr/dict/words'; +$word_file = '/usr/share/dict/words' if -r '/usr/share/dict/words'; SKIP: { skip "Can't find a system word list", 2 if $word_file eq ''; - set_word_list $word_file; - + my $wl = Games::Word::Wordlist->new($word_file); my $result; - lives_ok(sub { $result = is_word random_word }, - "testing calling random_word with a good word list"); + lives_ok(sub { $result = $wl->is_word($wl->random_word) }, + "testing calling is_word"); ok($result, "testing checking to see if a random word from the word list is a word"); } |