Make Pod::Perldoc use PERLDOC_POD2 ENV var
[perl.git] / ext / Locale-Maketext-Simple / t / 0-signature.t
1 #!/usr/bin/perl
2
3 use strict;
4 print "1..1\n";
5
6 if (!$ENV{TEST_SIGNATURE}) {
7     print "ok 1 # skip set the environment variable TEST_SIGNATURE to enable this test\n";
8 }
9 elsif (!-s 'SIGNATURE') {
10     print "ok 1 # skip No signature file found\n";
11 }
12 elsif (!eval { require Module::Signature; 1 }) {
13     print "ok 1 # skip ",
14             "Next time around, consider install Module::Signature, ",
15             "so you can verify the integrity of this distribution.\n";
16 }
17 elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
18     print "ok 1 # skip ",
19             "Cannot connect to the keyserver\n";
20 }
21 else {
22     (Module::Signature::verify() == Module::Signature::SIGNATURE_OK())
23         or print "not ";
24     print "ok 1 # Valid signature\n";
25 }
26
27 __END__