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