1N/A#!perl -w
1N/A
1N/Ause Test qw(plan ok);
1N/Aplan tests => 2;
1N/A
1N/Ause Digest::MD5;
1N/A
1N/Amy $md5 = Digest::MD5->new;
1N/A
1N/Aif ($Digest::base::VERSION) {
1N/A $md5->add_bits("01111111");
1N/A ok($md5->hexdigest, "83acb6e67e50e31db6ed341dd2de1595");
1N/A eval {
1N/A $md5->add_bits("0111");
1N/A };
1N/A ok($@ =~ /must be multiple of 8/);
1N/A}
1N/Aelse {
1N/A print "# No Digest::base\n";
1N/A eval {
1N/A $md5->add_bits("foo");
1N/A };
1N/A ok($@ =~ /^Can\'t locate Digest\/base\.pm in \@INC/);
1N/A ok(1); # dummy
1N/A}
1N/A