cpan/Digest-MD5/t/bits.t

   1 #!perl -w
   2
   3 use Test qw(plan ok);
   4 plan tests => 2;
   5
   6 use Digest::MD5;
   7
   8 my $md5 = Digest::MD5->new;
   9
  10 if ($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 }
  18 else {
  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