1309577Sglebius#!perl -w 2309577Sglebius 3309577Sglebiususe strict; 4309577Sglebiususe warnings; 5309577Sglebius 6309577Sglebiususe Test qw(plan ok); 7309577Sglebiusplan tests => 2; 8309577Sglebius 9309577Sglebiususe Digest::MD5; 10309577Sglebius 11309577Sglebiusmy $md5 = Digest::MD5->new; 12309577Sglebius 13309577Sglebiusif ($Digest::base::VERSION) { 14309577Sglebius $md5->add_bits("01111111"); 15309577Sglebius ok($md5->hexdigest, "83acb6e67e50e31db6ed341dd2de1595"); 16309577Sglebius eval { 17309577Sglebius $md5->add_bits("0111"); 18309577Sglebius }; 19309577Sglebius ok($@ =~ /must be multiple of 8/); 20309577Sglebius} 21309577Sglebiuselse { 22309577Sglebius print "# No Digest::base\n"; 23309577Sglebius eval { 24309577Sglebius $md5->add_bits("foo"); 25309577Sglebius }; 26309577Sglebius ok($@ =~ /^Can\'t locate Digest\/base\.pm in \@INC/); 27309577Sglebius ok(1); # dummy 28309577Sglebius} 29309577Sglebius 30309577Sglebius