#!/usr/bin/perl
## Test that our SIGNATURE file is valid - requires TEST_SIGNATURE env
use 5.006;
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();
if ($ret eq Module::Signature::SIGNATURE_OK()) {
pass ('Valid SIGNATURE file');
}
else {
fail ('Invalid SIGNATURE file');
}
}
}