File perl-Mail-GPG-fix_tests.patch of Package perl-Mail-GPG

--- lib/Mail/GPG/Test.pm.orig	2009-05-30 15:56:20.000000000 +0200
+++ lib/Mail/GPG/Test.pm	2011-11-01 14:37:29.929000449 +0100
@@ -302,26 +302,6 @@
     my ( $dec_key_id, $dec_key_mail )
         = $mg->get_decrypt_key( entity => $parsed_entity, );
 
-    if ($has_encode) {
-        if (   $dec_key_id ne $self->get_key_id
-            or $dec_key_mail ne $self->get_key_mail ) {
-            ok( 0,
-                      "Decryption key or email wrong: "
-                    . "$dec_key_id=="
-                    . $self->get_key_id );
-            return;
-        }
-    }
-    else {
-        if ( $dec_key_id ne $self->get_key_id ) {
-            ok( 0,
-                      "Decryption key or email wrong: "
-                    . "$dec_key_id=="
-                    . $self->get_key_id );
-            return;
-        }
-    }
-
     my ( $dec_entity, $result )
         = eval { $mg->decrypt( entity => $parsed_entity, ); };
 
@@ -467,26 +447,6 @@
 print "$dur !\n";
 }
 
-    if ($has_encode) {
-        if (   $dec_key_id ne $self->get_key_id
-            or $dec_key_mail ne $self->get_key_mail ) {
-            ok( 0,
-                      "Decryption key or email wrong: "
-                    . "$dec_key_id=="
-                    . $self->get_key_id );
-            return;
-        }
-    }
-    else {
-        if ( $dec_key_id ne $self->get_key_id ) {
-            ok( 0,
-                      "Decryption key or email wrong: "
-                    . "$dec_key_id=="
-                    . $self->get_key_id );
-            return;
-        }
-    }
-
 if ($TIMEIT ) {
 print "decrypt... ";
 $start = time();