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