pkgs/development/perl-modules/crypt-openpgp-remove-impure-keygen-tests.patch

   1 diff --git a/t/13-keygen.t b/t/13-keygen.t
   2 index f430ffb..2050624 100644
   3 --- a/t/13-keygen.t
   4 +++ b/t/13-keygen.t
   5 @@ -1,5 +1,5 @@
   6  use strict;
   7 -use Test::More tests => 29;
   8 +use Test::More tests => 25;
   9
  10  use Crypt::OpenPGP;
  11  use Crypt::OpenPGP::Message;
  12 @@ -26,9 +26,6 @@ for my $type ( qw( RSA DSA ) ) {
  13      isa_ok $pub->key, 'Crypt::OpenPGP::Certificate';
  14      isa_ok $sec->key, 'Crypt::OpenPGP::Certificate';
  15
  16 -    is $pub->key->key_id, $sec->key->key_id,
  17 -        'public key_id matches secret key_id';
  18 -
  19      is $pub->primary_uid, $id, 'primary_uid matches';
  20
  21      is $pub->key->key->size, $bits, 'keysize (in bits) matches for pubkey';
  22 @@ -47,8 +44,6 @@ for my $type ( qw( RSA DSA ) ) {
  23      isa_ok $pieces[1], 'Crypt::OpenPGP::UserID';
  24      isa_ok $pieces[2], 'Crypt::OpenPGP::Signature';
  25
  26 -    is $pieces[0]->key_id, $sec->key->key_id,
  27 -        'serialized public key_id matches secret key_id';
  28  }
  29
  30  {