[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / 00signature.t

#!/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__
Commit	Line	Data
30e302f8	1	#!/usr/bin/perl
	2	# $File: //member/autrijus/Module-Signature/t/0-signature.t $ $Author: autrijus $
	3	# $Revision: #5 $ $Change: 7212 $ $DateTime: 2003/07/28 14:21:21 $
	4
	5	use strict;
	6	use Test::More tests => 1;
	7
	8	SKIP: {
	9	if (!eval { require Module::Signature; 1 }) {
	10	skip("Next time around, consider install Module::Signature, ".
	11	"so you can verify the integrity of this distribution.", 1);
	12	}
	13	elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
	14	skip("Cannot connect to the keyserver", 1);
	15	}
	16	else {
	17	ok(Module::Signature::verify() == Module::Signature::SIGNATURE_OK()
	18	=> "Valid signature" );
	19	}
	20	}
	21
	22	__END__