1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!perl
## Test that our SIGNATURE file is valid - requires TEST_SIGNATURE env
use 5.008001;
use strict;
use warnings;
use Test::More;
select(($|=1,select(STDERR),$|=1)[1]);
if (!$ENV{TEST_SIGNATURE}) {
plan skip_all => 'Set the environment variable TEST_SIGNATURE to enable this test';
}
plan tests => 1;
SKIP: {
if (!eval { require Module::Signature; 1 }) {
skip ('Must have Module::Signature to test SIGNATURE file', 1);
}
elsif ( !-e 'SIGNATURE' ) {
fail ('SIGNATURE file was not found');
}
elsif ( ! -s 'SIGNATURE') {
fail ('SIGNATURE file was empty');
}
else {
my $ret = Module::Signature::verify(skip=>1);
if ($ret eq Module::Signature::SIGNATURE_OK()) {
pass ('Valid SIGNATURE file');
}
else {
fail ('Invalid SIGNATURE file');
}
}
}
|
