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