t/0-signature.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More;
   6
   7 plan skip_all => 'Signature has not been updated';
   8
   9
  10 if ( ! eval { require Module::Signature; 1 } ) {
  11   plan skip_all => 'Needs Module::Signature to verify the integrity of this distribution.';
  12 } elsif ( ! eval { require Socket; Socket::inet_aton('pgp.mit.edu') } ) {
  13   plan skip_all => 'Cannot connect to the keyserver';
  14 } else {
  15   plan tests => 1;
  16   is Module::Signature::verify(), Module::Signature::SIGNATURE_OK(), 'Valid signature';
  17 }
  18