summaryrefslogtreecommitdiffstats
path: root/t/010-random-permutation.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/010-random-permutation.t
parenta12e592c538f370277e787cd57d01d512e1ca835 (diff)
downloadgames-word-4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7.tar.gz
games-word-4074f2d6a9bcfb33f0da7933ac26c5df0d2f21f7.zip
modernize, cleanup, etc
Diffstat (limited to 't/010-random-permutation.t')
-rw-r--r--t/010-random-permutation.t15
1 files changed, 0 insertions, 15 deletions
diff --git a/t/010-random-permutation.t b/t/010-random-permutation.t
deleted file mode 100644
index 4adcda3..0000000
--- a/t/010-random-permutation.t
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More tests => 51;
-use Test::Deep;
-use Games::Word qw/random_permutation/;
-
-is(random_permutation(""), "", "testing permutation of empty string");
-
-for my $word (qw/foo bar baz quux blah/) {
- for (1..10) {
- cmp_deeply([split //, random_permutation $word], bag(split //, $word),
- "random tests");
- }
-}