summaryrefslogtreecommitdiffstats
path: root/t/025-subwords.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-07-05 10:15:42 -0500
committerJesse Luehrs <doy@tozt.net>2012-07-05 10:27:29 -0500
commit4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7 (patch)
tree9d34241644d3d8babf199f362a9d2b7ee2180d75 /t/025-subwords.t
parenta12e592c538f370277e787cd57d01d512e1ca835 (diff)
downloadgames-word-4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7.tar.gz
games-word-4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7.zip
modernize, cleanup, etc
Diffstat (limited to 't/025-subwords.t')
-rw-r--r--t/025-subwords.t14
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");