Commit | Line | Data |
49953a3f |
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 | |