Home | History | Annotate | Download | only in 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 
     27