diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-02-01 04:58:50 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-02-01 04:58:50 -0500 |
commit | 452313f92901f9b460fd38d44630a6b47dcad748 (patch) | |
tree | 36c7dabc8b832b7b4b83c925702ee30a03a4af3a /t/024-anagrams.t | |
parent | c7d6a6698132f9cab275ebae35979431e3556521 (diff) | |
download | games-word-452313f92901f9b460fd38d44630a6b47dcad748.tar.gz games-word-452313f92901f9b460fd38d44630a6b47dcad748.zip |
make only the tests that require it use the system word file
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"); |