1 files changed, 22 insertions, 0 deletions
diff --git a/lib/Test/Simple/t/00signature.t b/lib/Test/Simple/t/00signature.t
new file mode 100644
index 0000000000..b36f68e2e2
--- /dev/null
+++ b/lib/Test/Simple/t/00signature.t
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+# $File: //member/autrijus/Module-Signature/t/0-signature.t $ $Author: autrijus $
+# $Revision: #5 $ $Change: 7212 $ $DateTime: 2003/07/28 14:21:21 $
+
+use strict;
+use Test::More tests => 1;
+
+SKIP: {
+    if (!eval { require Module::Signature; 1 }) {
+	skip("Next time around, consider install Module::Signature, ".
+	     "so you can verify the integrity of this distribution.", 1);
+    }
+    elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
+	skip("Cannot connect to the keyserver", 1);
+    }
+    else {
+	ok(Module::Signature::verify() == Module::Signature::SIGNATURE_OK()
+	    => "Valid signature" );
+    }
+}
+
+__END__