File: //home/.cpan/build/Digest-SHA1-2.13-0/t/bits.t
#!perl -w
BEGIN {
if ($] < 5.005) {
# Test module can't be expected to be available
# and I ended up with seg faults when trying to
# load it with eval { require Test };
print "1..0\n";
exit;
}
}
use Test qw(plan ok);
plan tests => 2;
use Digest::SHA1;
my $sha1 = Digest::SHA1->new;
if ($Digest::base::VERSION && $Digest::base::VERSION) {
$sha1->add_bits("01111111");
ok($sha1->hexdigest, "23833462f55515a900e016db2eb943fb474c19f6");
eval {
$sha1->add_bits("0111");
};
ok($@ =~ /must be multiple of 8/);
}
else {
print "# No Digest::base\n";
eval {
$sha1->add_bits("foo");
};
ok($@ =~ /^Can\'t locate Digest\/base\.pm in \@INC/);
ok(1); # dummy
}