Remove signature test, which is always skipped
Rafael Garcia-Suarez [Mon, 20 Jun 2005 11:58:32 +0000 (11:58 +0000)]
p4raw-id: //depot/perl@24910

MANIFEST
lib/Test/Simple/t/00signature.t [deleted file]

index 1d56505..e6e20ac 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1940,7 +1940,6 @@ lib/Test.pm                       A simple framework for writing test scripts
 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
diff --git a/lib/Test/Simple/t/00signature.t b/lib/Test/Simple/t/00signature.t
deleted file mode 100644 (file)
index 778faa3..0000000
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/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";
-}
-