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