1 files changed, 25 insertions, 0 deletions
diff --git a/t/010-random-permutation.t b/t/010-random-permutation.t
new file mode 100644
index 0000000..0420492
--- /dev/null
+++ b/t/010-random-permutation.t
@@ -0,0 +1,25 @@
+#!perl -T
+use strict;
+use warnings;
+use Test::More;
+use List::Util 'sum';
+use Games::Word qw/random_permutation/;
+
+my %blah_permutations = (
+    0  => "blah", 1  => "blha", 2  => "balh", 3  => "bahl",
+    4  => "bhla", 5  => "bhal", 6  => "lbah", 7  => "lbha",
+    8  => "labh", 9  => "lahb", 10 => "lhba", 11 => "lhab",
+    12 => "ablh", 13 => "abhl", 14 => "albh", 15 => "alhb",
+    16 => "ahbl", 17 => "ahlb", 18 => "hbla", 19 => "hbal",
+    20 => "hlba", 21 => "hlab", 22 => "habl", 23 => "halb",
+);
+plan tests => 1 + (scalar keys %blah_permutations) + 2;
+
+is(random_permutation(""), "", "testing permutation of empty string");
+while (my ($k, $v) = each %blah_permutations) {
+    is(random_permutation("blah", $k), $v, "testing random_permutation of 'blah'");
+}
+eval { random_permutation("blah", 24) };
+like($@, qr/^invalid permutation index/, "testing permutation index bounds");
+eval { random_permutation("blah", -1) };
+like($@, qr/^invalid permutation index/, "testing permutation index bounds");