1 files changed, 21 insertions, 0 deletions
diff --git a/t/is-permutation.t b/t/is-permutation.t
new file mode 100644
index 0000000..378d992
--- /dev/null
+++ b/t/is-permutation.t
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Games::Word qw(random_permutation is_permutation);
+
+ok( is_permutation("", ""),           "testing empty string");
+ok( is_permutation("blah", "blah"),   "testing same string");
+ok( is_permutation("blah", "alhb"),   "testing permuted string");
+ok(!is_permutation("blah", "blh"),    "testing word with letter deleted");
+ok(!is_permutation("blah", "blahs"),  "testing word with letter added");
+ok(!is_permutation("blah", "blahh"),  "testing word with repeated letter");
+ok( is_permutation("blaah", "hbala"), "testing word with duplicate letters");
+ok(!is_permutation("blaah", "bblah"), "more duplicate letter tests");
+
+for (1..12) {
+    ok(is_permutation("blah", random_permutation("blah")), "random tests");
+}
+
+done_testing;