diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-31 19:37:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-31 19:37:22 +0000 |
| commit | 6f14f0894bac4d44067b4f4dfec13e183cb176e6 (patch) | |
| tree | c1bd35a86cbdad6e01c5f13d60b552393e5ddfed /lib/CPAN/t | |
| parent | c975d1a7a67c2dcfc5a992d06062de15cd9f8637 (diff) | |
| download | perl-6f14f0894bac4d44067b4f4dfec13e183cb176e6.tar.gz | |
Upgrade to real CPAN.pm 1.76.
p4raw-id: //depot/perl@20383
Diffstat (limited to 'lib/CPAN/t')
| -rw-r--r-- | lib/CPAN/t/signature.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lib/CPAN/t/signature.t b/lib/CPAN/t/signature.t new file mode 100644 index 0000000000..cf81f88800 --- /dev/null +++ b/lib/CPAN/t/signature.t @@ -0,0 +1,16 @@ +# -*- mode: cperl -*- + +use strict; +print "1..1\n"; + +if (!eval { require Module::Signature; 1 }) { + print "ok 1 # skip - no Module::Signature found\n"; +} +elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) { + print "ok 1 # skip - Cannot connect to the keyserver"; +} +else { + (Module::Signature::verify() == Module::Signature::SIGNATURE_OK()) + or print "not "; + print "ok 1 # Valid signature\n"; +} |