diff options
Diffstat (limited to 't/022-random-word-nocache.t')
| -rw-r--r-- | t/022-random-word-nocache.t | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/t/022-random-word-nocache.t b/t/022-random-word-nocache.t index 9f9551a..3054955 100644 --- a/t/022-random-word-nocache.t +++ b/t/022-random-word-nocache.t @@ -1,7 +1,7 @@ #!perl -T use strict; use warnings; -use Test::More tests => 3; +use Test::More tests => 6; use Test::Exception; use Games::Word::Wordlist; @@ -10,7 +10,7 @@ $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 ''; + skip "Can't find a system word list", 6 if $word_file eq ''; my $wl = Games::Word::Wordlist->new($word_file, cache => 0); my $word; @@ -24,5 +24,11 @@ SKIP: { chomp; $passed = 1 if $word eq $_; } - ok($passed, "testing that the word is actually in the word list") + ok($passed, "testing that the word is actually in the word list"); + lives_ok(sub { $word = $wl->random_word(4) }, + "random_word doesn't die when given a length"); + is(length $word, 4, "testing random_word with a given length"); + throws_ok(sub { $wl->random_word(35) }, + qr/No words of length 35 in word list/, + "random_word dies if no words are found"); } |