#!perl -T

use Test::More tests => 5;


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");