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