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