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