X-Git-Url: https://git.donarmstrong.com/?p=term-progressbar.git;a=blobdiff_plain;f=t%2F0-signature.t;fp=t%2F0-signature.t;h=e4713ee4a89e40bd1a033b6e933a10270ca2b5a3;hp=9de4488601b1575abe51eee7cf444ac963172a76;hb=cbc7b2da89fed4167db14a35664b5876b772f8d2;hpb=34ac983862368c022af1ffe37fe80de1abdec2a8 diff --git a/t/0-signature.t b/t/0-signature.t index 9de4488..e4713ee 100644 --- a/t/0-signature.t +++ b/t/0-signature.t @@ -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'; }