summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjluehrs2 <jluehrs2@uiuc.edu>2008-02-02 13:43:00 -0500
committerjluehrs2 <jluehrs2@uiuc.edu>2008-02-02 13:43:00 -0500
commit4d68bc8ab95aea8bd60729bfc00cbce2ced4c7ba (patch)
treebeab718f23f0346df6ce00f12321d850c7c45761
parent9250b3fbd3babd24e9ee3a21f804519b485f7a20 (diff)
downloadgames-word-4d68bc8ab95aea8bd60729bfc00cbce2ced4c7ba.tar.gz
games-word-4d68bc8ab95aea8bd60729bfc00cbce2ced4c7ba.zip
test subwords_of
-rw-r--r--t/025-subwords.t17
1 files changed, 17 insertions, 0 deletions
diff --git a/t/025-subwords.t b/t/025-subwords.t
new file mode 100644
index 0000000..c120034
--- /dev/null
+++ b/t/025-subwords.t
@@ -0,0 +1,17 @@
+#!perl -T
+use strict;
+use warnings;
+use Test::More tests => 2;
+use Test::Exception;
+use Test::Deep;
+use Games::Word::Wordlist;
+
+my @words = qw/stop spot tops post posts stops spartan poster pot sop spa/;
+
+my $wl = Games::Word::Wordlist->new(\@words);
+my @subwords;
+lives_ok(sub { @subwords = $wl->subwords_of("stop") },
+ "testing calling random_word with a good word list");
+
+cmp_deeply(\@subwords, bag('stop', 'spot', 'tops', 'post', 'pot', 'sop'),
+ "subwords_of returns the correct words");