lib/Test/Simple/t/00signature.t

   1 #!/usr/bin/perl
   2 # $File: //member/autrijus/Module-Signature/t/0-signature.t $ $Author: autrijus $
   3 # $Revision: #5 $ $Change: 7212 $ $DateTime: 2003/07/28 14:21:21 $
   4
   5 use strict;
   6 use Test::More tests => 1;
   7
   8 SKIP: {
   9     if (!eval { require Module::Signature; 1 }) {
  10         skip("Next time around, consider install Module::Signature, ".
  11              "so you can verify the integrity of this distribution.", 1);
  12     }
  13     elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
  14         skip("Cannot connect to the keyserver", 1);
  15     }
  16     else {
  17         ok(Module::Signature::verify() == Module::Signature::SIGNATURE_OK()
  18             => "Valid signature" );
  19     }
  20 }
  21
  22 __END__