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