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