#!perl -T
BEGIN {
use_ok(
"Digest::MD5::Reverse"
);
}
diag(
"Testing Digest::MD5::Reverse $Digest::MD5::Reverse::VERSION, Perl $], $^X"
);
is(reverse_md5(
"acbd18db4cc2f85cedef654fccc4a4d8"
),
"foo"
,
"reverse a hash"
);
is(reverse_md5(
"21232f297a57a5a743894a0e4a801fc3"
),
"admin"
,
"reverse another hash"
);
is(reverse_md5(
""
),
undef
,
"empty string"
);
is(reverse_md5(
"aaaa"
),
undef
,
"bad hash"
);