clean up a bunch of tests

1 files changed, 13 insertions, 0 deletions

diff --git a/t/002-array-wordlist.t b/t/002-array-wordlist.t
new file mode 100644
index 0000000..4f235c0
--- /dev/null
+++ b/t/002-array-wordlist.t
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 3;
+use Games::Word::Wordlist;
+
+my @words = qw/foo bar baz/;
+my $wl = Games::Word::Wordlist->new(\@words);
+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");