summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjluehrs2 <jluehrs2@uiuc.edu>2008-02-02 20:37:43 -0500
committerjluehrs2 <jluehrs2@uiuc.edu>2008-02-02 20:37:43 -0500
commitadd00b94fa61ee11589a73b6de43c2ae6beb48e2 (patch)
tree2528cd6fffe0f8d197005c93473578a22cc5065a
parentcd85b2aa1d42ec8c9a8f9104a59053ae73ec6c2b (diff)
downloadgames-word-add00b94fa61ee11589a73b6de43c2ae6beb48e2.tar.gz
games-word-add00b94fa61ee11589a73b6de43c2ae6beb48e2.zip
clean up tests a bit
-rw-r--r--t/021-is-word.t11
-rw-r--r--t/023-is-word-nocache.t12
-rw-r--r--t/025-subwords.t7
3 files changed, 14 insertions, 16 deletions
diff --git a/t/021-is-word.t b/t/021-is-word.t
index 88784f3..3ed6bc2 100644
--- a/t/021-is-word.t
+++ b/t/021-is-word.t
@@ -1,13 +1,12 @@
#!perl -T
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 10;
use Test::Exception;
use Games::Word::Wordlist;
my $wl = Games::Word::Wordlist->new(['foo', 'bar', 'baz']);
-my $result;
-lives_ok(sub { $result = $wl->is_word($wl->random_word) },
- "testing calling is_word");
-ok($result,
- "testing checking to see if a random word from the word list is a word");
+for (1..10) {
+ ok($wl->is_word($wl->random_word),
+ "testing checking to see if a random word from the word list is a word");
+}
diff --git a/t/023-is-word-nocache.t b/t/023-is-word-nocache.t
index 38d7aaa..b812d07 100644
--- a/t/023-is-word-nocache.t
+++ b/t/023-is-word-nocache.t
@@ -1,7 +1,7 @@
#!perl -T
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 20;
use Test::Exception;
use Games::Word::Wordlist;
@@ -14,8 +14,10 @@ SKIP: {
my $wl = Games::Word::Wordlist->new($word_file, cache => 0);
my $result;
- lives_ok(sub { $result = $wl->is_word($wl->random_word) },
- "testing calling is_word");
- ok($result,
- "testing checking to see if a random word from the word list is a word");
+ for (1..10) {
+ lives_ok(sub { $result = $wl->is_word($wl->random_word) },
+ "testing calling is_word");
+ ok($result,
+ "checking to see if a random word from the word list is a word");
+ }
}
diff --git a/t/025-subwords.t b/t/025-subwords.t
index c120034..4941a19 100644
--- a/t/025-subwords.t
+++ b/t/025-subwords.t
@@ -1,7 +1,7 @@
#!perl -T
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 1;
use Test::Exception;
use Test::Deep;
use Games::Word::Wordlist;
@@ -9,9 +9,6 @@ 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;
-lives_ok(sub { @subwords = $wl->subwords_of("stop") },
- "testing calling random_word with a good word list");
-
+my @subwords = $wl->subwords_of("stop");
cmp_deeply(\@subwords, bag('stop', 'spot', 'tops', 'post', 'pot', 'sop'),
"subwords_of returns the correct words");