From c7d6a6698132f9cab275ebae35979431e3556521 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Fri, 1 Feb 2008 01:32:52 -0500
Subject: add and fix some tests

---
 t/003-array-wordlist.t | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 t/003-array-wordlist.t

(limited to 't/003-array-wordlist.t')

diff --git a/t/003-array-wordlist.t b/t/003-array-wordlist.t
new file mode 100644
index 0000000..148f761
--- /dev/null
+++ b/t/003-array-wordlist.t
@@ -0,0 +1,16 @@
+#!perl -T
+use strict;
+use warnings;
+use Test::More tests => 4;
+use Test::Exception;
+use Games::Word::Wordlist;
+
+my @words = qw/foo bar baz/;
+my $wl;
+lives_ok { $wl = Games::Word::Wordlist->new(\@words) }
+         "creating a wordlist from an array succeeds";
+is($wl->words, 3, "created the correct number of words in the word list");
+$wl->add_words(['zab', 'rab', 'oof', 'foo']);
+is($wl->words, 6, "adding words results in the correct number of words");
+$wl->remove_words(qw/rab foo quux/);
+is($wl->words, 4, "deleting words results in the correct number of words");
-- 
cgit v1.2.3-54-g00ecf