1#!perl -w 2 3use Test qw(plan ok); 4plan tests => 2; 5 6use Digest::MD5; 7 8my $md5 = Digest::MD5->new; 9 10if ($Digest::base::VERSION) { 11 $md5->add_bits("01111111"); 12 ok($md5->hexdigest, "83acb6e67e50e31db6ed341dd2de1595"); 13 eval { 14 $md5->add_bits("0111"); 15 }; 16 ok($@ =~ /must be multiple of 8/); 17} 18else { 19 print "# No Digest::base\n"; 20 eval { 21 $md5->add_bits("foo"); 22 }; 23 ok($@ =~ /^Can\'t locate Digest\/base\.pm in \@INC/); 24 ok(1); # dummy 25} 26 27