Commit | Line | Data |
---|---|---|
6f14f089 | 1 | # -*- mode: cperl -*- |
2 | ||
3 | use strict; | |
4 | print "1..1\n"; | |
5 | ||
6 | if (!eval { require Module::Signature; 1 }) { | |
7 | print "ok 1 # skip - no Module::Signature found\n"; | |
8 | } | |
9 | elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) { | |
10 | print "ok 1 # skip - Cannot connect to the keyserver"; | |
11 | } | |
12 | else { | |
13 | (Module::Signature::verify() == Module::Signature::SIGNATURE_OK()) | |
14 | or print "not "; | |
15 | print "ok 1 # Valid signature\n"; | |
16 | } |