From 4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 5 Jul 2012 10:15:42 -0500
Subject: modernize, cleanup, etc

---
 t/random-word.t | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 t/random-word.t

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

diff --git a/t/random-word.t b/t/random-word.t
new file mode 100644
index 0000000..6c5801d
--- /dev/null
+++ b/t/random-word.t
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Games::Word::Wordlist;
+
+my $wl = Games::Word::Wordlist->new(['foo', 'bar', 'baz', 'quux']);
+
+my $word = $wl->random_word;
+ok(defined($word), "random_word actually returned a word");
+like($word, qr/^(foo|bar|baz|quux)$/,
+     "testing that the word is actually in the word list");
+
+$word = $wl->random_word(4);
+is($word, 'quux', "testing random_word with a given length");
+
+$word = $wl->random_word(3);
+like($word, qr/^(foo|bar|baz)$/,
+     "testing that the word was correct");
+
+is($wl->random_word(5), undef,
+   "random_word returns undef if no words are found");
+
+my $wl2 = Games::Word::Wordlist->new([]);
+is($wl2->random_word, undef,
+   "random word returns undef with an empty word list");
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf