diff options
Diffstat (limited to 't/021-is-word.t')
-rw-r--r-- | t/021-is-word.t | 20 |
1 files changed, 6 insertions, 14 deletions
diff --git a/t/021-is-word.t b/t/021-is-word.t index 076a0e9..88784f3 100644 --- a/t/021-is-word.t +++ b/t/021-is-word.t @@ -5,17 +5,9 @@ use Test::More tests => 2; use Test::Exception; use Games::Word::Wordlist; -my $word_file = ''; -$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 ''; - - my $wl = Games::Word::Wordlist->new($word_file); - my $result; - 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"); -} +my $wl = Games::Word::Wordlist->new(['foo', 'bar', 'baz']); +my $result; +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"); |