use Test::More and skip the signature verification
authorGabor Szabo <szabgab@gmail.com>
Fri, 17 Feb 2012 10:30:29 +0000 (12:30 +0200)
committerGabor Szabo <szabgab@gmail.com>
Fri, 17 Feb 2012 10:30:29 +0000 (12:30 +0200)
Changes
t/0-signature.t

diff --git a/Changes b/Changes
index bd529bf..4b36f3c 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Term-ProgressBar.
 
+2.11
+    - skip the signature verification
+
 2.10  Wed Dec 21 11:18:26 2011
        - remove Build.PL (keep the Makefile.PL only)
        - Replace home-made testing tools with CPAN-ish tools
index 9de4488..e4713ee 100644 (file)
@@ -1,16 +1,18 @@
 #!/usr/bin/perl
 use strict;
-print "1..1\n";
+use warnings;
+
+use Test::More;
+
+plan skip_all => 'Signature has not been updated';
+
 
 if ( ! eval { require Module::Signature; 1 } ) {
-  print("ok 1 # skip ",
-        "Next time around, consider install Module::Signature, ",
-        "# so you can verify the integrity of this distribution.\n");
+  plan skip_all => 'Needs Module::Signature to verify the integrity of this distribution.';
 } elsif ( ! eval { require Socket; Socket::inet_aton('pgp.mit.edu') } ) {
-  print "ok 1 # skip ", "Cannot connect to the keyserver\n";
+  plan skip_all => 'Cannot connect to the keyserver';
 } else {
-  (Module::Signature::verify() == Module::Signature::SIGNATURE_OK())
-    or print "not ";
-  print "ok 1 # Valid signature\n";
+  plan tests => 1;
+  is Module::Signature::verify(), Module::Signature::SIGNATURE_OK(), 'Valid signature';
 }