diff options
Diffstat (limited to 't/024-anagrams.t')
| -rw-r--r-- | t/024-anagrams.t | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/t/024-anagrams.t b/t/024-anagrams.t index 3ae578e..fc95f42 100644 --- a/t/024-anagrams.t +++ b/t/024-anagrams.t @@ -6,18 +6,12 @@ use Test::Exception; use Test::Deep; 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'; +my @words = qw/stop spot tops post posts stops spartan poster pot sop spa/; -SKIP: { - skip "Can't find a system word list", 2 if $word_file eq ''; +my $wl = Games::Word::Wordlist->new(\@words); +my @anagrams; +lives_ok(sub { @anagrams = $wl->anagrams("stop") }, + "testing calling random_word with a good word list"); - my $wl = Games::Word::Wordlist->new($word_file); - my @anagrams; - lives_ok(sub { @anagrams = $wl->anagrams("stop") }, - "testing calling random_word with a good word list"); - - cmp_deeply(\@anagrams, bag('stop', 'spot', 'tops', 'post'), - "anagrams returns the correct words"); -} +cmp_deeply(\@anagrams, bag('stop', 'spot', 'tops', 'post'), + "anagrams returns the correct words"); |