diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-07-05 10:15:42 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-07-05 10:27:29 -0500 |
commit | 4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7 (patch) | |
tree | 9d34241644d3d8babf199f362a9d2b7ee2180d75 /t/025-subwords.t | |
parent | a12e592c538f370277e787cd57d01d512e1ca835 (diff) | |
download | games-word-4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7.tar.gz games-word-4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7.zip |
modernize, cleanup, etc
Diffstat (limited to 't/025-subwords.t')
-rw-r--r-- | t/025-subwords.t | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/t/025-subwords.t b/t/025-subwords.t deleted file mode 100644 index b117158..0000000 --- a/t/025-subwords.t +++ /dev/null @@ -1,14 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More tests => 1; -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 = $wl->subwords_of("stop"); - -cmp_deeply(\@subwords, bag('stop', 'spot', 'tops', 'post', 'pot', 'sop'), - "subwords_of returns the correct words"); |