diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-11-17 00:29:08 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-11-17 00:29:08 -0600 |
| commit | beb5c4cccf9eff7885cbc0253f17a243cce54a4f (patch) | |
| tree | e380ed9e7c3d7294b0d67bab15aba4980f42f1e8 /t/025-subwords.t | |
| parent | 5c83076fed12c431a9345ba9feb41047966428c4 (diff) | |
| download | games-word-beb5c4cccf9eff7885cbc0253f17a243cce54a4f.tar.gz games-word-beb5c4cccf9eff7885cbc0253f17a243cce54a4f.zip | |
clean up a bunch of tests
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"); |