view release on metacpan or  search on metacpan

t/02.sign.t  view on Meta::CPAN

#!/usr/bin/perl

package Mail::GPG::Test;

use strict;
#no warnings;

use Test::More;
use MIME::Parser;

SKIP: {
	if ( qx[gpg --version 2>&1 && echo GPGOK] !~ /GPGOK/ ) {
		plan skip_all => "No gpg found in PATH";
	}

	eval { my $parser = MIME::Parser->new; $parser->decode_bodies(0) };

	my $mime_tools_patched = $@ eq '';

	if ( $mime_tools_patched ) {
		plan tests => 31;
	} else {
		plan tests => 15;
	}

	use_ok ("Mail::GPG::Test");

        foreach my $use_long_key_ids ( 0, 1 ) {
	    my $test = Mail::GPG::Test->new(
                use_long_key_ids => $use_long_key_ids
            );

	    ok($test->init, "Mail::GPG::Test->init");

	    my $mg = $test->get_mail_gpg;

	    ok($mg, "Mail::GPG->new");

	    my $key_id = $mg->query_keyring (
		    search => $test->get_key_mail,
	    );

	    ok ($key_id eq $test->get_key_id, "Key ID query");

	    foreach my $invalid ( 0, 1 ) {
	        foreach my $encoding ( qw( base64 quoted-printable ) ) {
		    foreach my $method ( qw( armor_sign mime_sign ) ) {
		        next if $method =~ /mime/ and not $mime_tools_patched;
		        $test->sign_test (
			    mg       => $mg,
			    method   => $method,
			    encoding => $encoding,
			    invalid  => $invalid,
		        );
		        $test->sign_test (
			    mg       => $mg,
			    method   => $method,
			    encoding => $encoding,
			    attach   => 1,
			    invalid  => $invalid,
		        ) if $method eq 'mime_sign';
		    }
	        }
	    }
        }
}