lib/Test/Simple/Changes Test::Simple changes
lib/Test/Simple.pm Basic utility for writing tests
lib/Test/Simple/README Test::Simple README
-lib/Test/Simple/t/00signature.t Test::Simple test
lib/Test/Simple/t/00test_harness_check.t Test::Simple test
lib/Test/Simple/t/bad_plan.t Test::Builder plan() test
lib/Test/Simple/t/buffer.t Test::Builder buffering test
+++ /dev/null
-#!/usr/bin/perl
-
-use strict;
-use Test::More;
-
-if (!eval { require Module::Signature; 1 }) {
- plan skip_all =>
- "Next time around, consider installing Module::Signature, ".
- "so you can verify the integrity of this distribution.";
-}
-elsif ( !-e 'SIGNATURE' ) {
- plan skip_all => "SIGNATURE not found";
-}
-elsif ( -s 'SIGNATURE' == 0 ) {
- plan skip_all => "SIGNATURE file empty";
-}
-elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
- plan skip_all => "Cannot connect to the keyserver to check module ".
- "signature";
-}
-else {
- plan tests => 1;
-}
-
-my $ret = Module::Signature::verify();
-SKIP: {
- skip "Module::Signature cannot verify", 1
- if $ret eq Module::Signature::CANNOT_VERIFY() or
- $ret eq Module::Signature::CIPHER_UNKNOWN();
-
- cmp_ok $ret, '==', Module::Signature::SIGNATURE_OK(), "Valid signature";
-}
-