From 4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 5 Jul 2012 10:15:42 -0500 Subject: modernize, cleanup, etc --- t/020-random-word.t | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100644 t/020-random-word.t (limited to 't/020-random-word.t') diff --git a/t/020-random-word.t b/t/020-random-word.t deleted file mode 100644 index b642c27..0000000 --- a/t/020-random-word.t +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More tests => 6; -use Games::Word::Wordlist; - -my $wl = Games::Word::Wordlist->new(['foo', 'bar', 'baz', 'quux']); - -my $word = $wl->random_word; -ok(defined($word), "random_word actually returned a word"); -like($word, qr/^(foo|bar|baz|quux)$/, - "testing that the word is actually in the word list"); - -$word = $wl->random_word(4); -is($word, 'quux', "testing random_word with a given length"); - -$word = $wl->random_word(3); -like($word, qr/^(foo|bar|baz)$/, - "testing that the word was correct"); - -is($wl->random_word(5), undef, - "random_word returns undef if no words are found"); - -my $wl2 = Games::Word::Wordlist->new([]); -is($wl2->random_word, undef, - "random word returns undef with an empty word list"); -- cgit v1.2.3-54-g00ecf