From beb5c4cccf9eff7885cbc0253f17a243cce54a4f Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 17 Nov 2009 00:29:08 -0600
Subject: clean up a bunch of tests

---
 t/022-random-word-nocache.t | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 't/022-random-word-nocache.t')

diff --git a/t/022-random-word-nocache.t b/t/022-random-word-nocache.t
index 08ed1fc..d5c9c19 100644
--- a/t/022-random-word-nocache.t
+++ b/t/022-random-word-nocache.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More tests => 4;
 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", 5 if $word_file eq '';
+    skip "Can't find a system word list", 4 if $word_file eq '';
 
     my $wl = Games::Word::Wordlist->new($word_file, cache => 0);
     my $word = $wl->random_word;
@@ -24,9 +24,7 @@ SKIP: {
     }
     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");
-
+    $word = $wl->random_word(4);
     is(length $word, 4, "testing random_word with a given length");
 
     is($wl->random_word(999), undef,
-- 
cgit v1.2.3-54-g00ecf