From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 20 Jun 2005 11:58:32 +0000 (+0000)
Subject: Remove signature test, which is always skipped
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2522aa67345a7f37d0050d70f341ab3a0b6165b0;p=p5sagit%2Fp5-mst-13.2.git

Remove signature test, which is always skipped

p4raw-id: //depot/perl@24910
---

diff --git a/MANIFEST b/MANIFEST
index 1d56505..e6e20ac 100644
--- 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
index 778faa3..0000000
--- a/lib/Test/Simple/t/00signature.t
+++ /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";
-}
-