diff options
Diffstat (limited to 't/025-subwords.t')
-rw-r--r-- | t/025-subwords.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/025-subwords.t b/t/025-subwords.t index c484788..b117158 100644 --- a/t/025-subwords.t +++ b/t/025-subwords.t @@ -2,7 +2,6 @@ use strict; use warnings; use Test::More tests => 1; -use Test::Exception; use Test::Deep; use Games::Word::Wordlist; @@ -10,5 +9,6 @@ my @words = qw/stop spot tops post posts stops spartan poster pot sop spa/; my $wl = Games::Word::Wordlist->new(\@words); my @subwords = $wl->subwords_of("stop"); + cmp_deeply(\@subwords, bag('stop', 'spot', 'tops', 'post', 'pot', 'sop'), "subwords_of returns the correct words"); |