#!/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;