view release on metacpan or  search on metacpan

t/0-signature.t  view on Meta::CPAN

#!/usr/bin/perl
# $File: //member/autrijus/Module-Signature/t/0-signature.t $ $Author: autrijus $
# $Revision: #1 $ $Change: 1328 $ $DateTime: 2002/10/11 18:56:44 $

use strict;
use Test::More tests => 1;

SKIP: {
    skip( 'No signature!', 1 ) unless -e 'SIGNATURE';
    if (eval { require Module::Signature; 1 }) {
	ok(Module::Signature::verify() == Module::Signature::SIGNATURE_OK()
	    => "Valid signature" );
    }