summaryrefslogtreecommitdiffstats
path: root/t/003-system-wordlist-nocache.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/003-system-wordlist-nocache.t
parenta12e592c538f370277e787cd57d01d512e1ca835 (diff)
downloadgames-word-4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7.tar.gz
games-word-4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7.zip
modernize, cleanup, etc
Diffstat (limited to 't/003-system-wordlist-nocache.t')
-rw-r--r--t/003-system-wordlist-nocache.t26
1 files changed, 0 insertions, 26 deletions
diff --git a/t/003-system-wordlist-nocache.t b/t/003-system-wordlist-nocache.t
deleted file mode 100644
index d8c0066..0000000
--- a/t/003-system-wordlist-nocache.t
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More tests => 3;
-use Test::Exception;
-use Games::Word::Wordlist;
-
-my $word_file = '';
-$word_file = '/usr/dict/words' if -r '/usr/dict/words';
-$word_file = '/usr/share/dict/words' if -r '/usr/share/dict/words';
-
-SKIP: {
- skip "Can't find a system word list", 3 if $word_file eq '';
-
- my $wl = Games::Word::Wordlist->new($word_file, cache => 0);
- open my $fh, '<', $word_file or die "Couldn't open $word_file";
- for (<$fh>) {}
- is($wl->words, $., "we read in the correct number of words");
-
- throws_ok { $wl->add_words([qw/foo bar baz/]) }
- qr/Can't add words to a non-cached word list/,
- "adding words dies";
- throws_ok { $wl->remove_words("word", "throw") }
- qr/Can't remove words from a non-cached word list/,
- "removing words dies";
-}