From 24e5415f910c8f95f1d776fdd2c5c30d68491d16 Mon Sep 17 00:00:00 2001
From: Jakub Jelen <jjelen@redhat.com>
Date: Thu, 30 Mar 2023 17:12:43 +0200
Subject: [PATCH] Drop the ancient DSA/SHA1 keys from openpgp tests

Related: rhbz#2070722
---
 gnupg-2.3.3-disable-sha1.patch | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnupg-2.3.3-disable-sha1.patch b/gnupg-2.3.3-disable-sha1.patch
index 6907ee8..fd977f3 100644
--- a/gnupg-2.3.3-disable-sha1.patch
+++ b/gnupg-2.3.3-disable-sha1.patch
@@ -22,4 +22,26 @@ index ceded4af9..277d3c8ca 100644
    gnupg_initialize_compliance (GNUPG_MODULE_NAME_GPG);
  
    pargs.argc = &argc;
+diff --git a/tests/openpgp/gpgv.scm b/tests/openpgp/gpgv.scm
+index 398f05052..7e137a390 100755
+--- a/tests/openpgp/gpgv.scm
++++ b/tests/openpgp/gpgv.scm
+@@ -59,7 +59,7 @@
+    (pipe:do
+     (pipe:echo (eval armored-file (current-environment)))
+     (pipe:spawn `(,@gpgv --keyring ,keyring))))
+- '(msg_ols_asc msg_cols_asc msg_sl_asc msg_oolss_asc msg_cls_asc msg_clss_asc))
++ '())
+ 
+ (for-each-p
+  "Checking that an invalid signature is verified as such"
+@@ -69,7 +69,7 @@
+ 	   (pipe:echo (eval armored-file (current-environment)))
+ 	   (pipe:spawn `(,@gpgv --keyring ,keyring)))
+ 	  (fail "verification succeeded but should not")))
+- '(bad_ls_asc bad_fols_asc bad_olsf_asc bad_ools_asc))
++ '(bad_ls_asc bad_fols_asc bad_olsf_asc bad_ools_asc msg_ols_asc msg_cols_asc msg_sl_asc msg_oolss_asc msg_cls_asc msg_clss_asc))
+ 
+ 
+ ;; Need to import the ed25519 sample key used for the next two tests.