Blob Blame History Raw
From 8d5348d6be9dadc9a98a66a70f08c995575deda1 Mon Sep 17 00:00:00 2001
From: Peter Oliver <git@mavit.org.uk>
Date: Mon, 15 Jul 2024 16:19:10 +0100
Subject: [PATCH 3/3] Mark multiple mml-sec tests as unstable when built in an
 RPM

* test/lisp/gnus/mml-sec-tests.el: Mark unstable tests which have been
seen to intermittently fail at
https://koji.fedoraproject.org/koji/packageinfo?packageID=560
---
 test/lisp/gnus/mml-sec-tests.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/test/lisp/gnus/mml-sec-tests.el b/test/lisp/gnus/mml-sec-tests.el
index 7abd1bd65a3..f5a412cf2a4 100644
--- a/test/lisp/gnus/mml-sec-tests.el
+++ b/test/lisp/gnus/mml-sec-tests.el
@@ -278,6 +278,7 @@ mml-secure-key-checks
 
 (ert-deftest mml-secure-find-usable-keys-1 ()
   "Make sure that expired and disabled keys and revoked UIDs are not used."
+  :tags (if (getenv "RPM_BUILD_ROOT") '(:unstable))
   (skip-unless (test-conf))
   (mml-secure-test-fixture
    (lambda ()
@@ -407,6 +408,7 @@ mml-secure-select-preferred-keys-2
 
 (ert-deftest mml-secure-select-preferred-keys-3 ()
   "Expired customized keys are removed if multiple keys are available."
+  :tags (if (getenv "RPM_BUILD_ROOT") '(:unstable))
   (skip-unless (test-conf))
   (mml-secure-test-fixture
    (lambda ()
@@ -581,6 +583,7 @@ mml-secure-test-en-decrypt-with-passphrase
 (ert-deftest mml-secure-en-decrypt-1 ()
   "Encrypt message; then decrypt and test for expected result.
 In this test, the single matching key is chosen automatically."
+  :tags (if (getenv "RPM_BUILD_ROOT") '(:unstable))
   (skip-unless (test-conf))
   (dolist (method (enc-standards) nil)
     ;; no-exp@example.org with single encryption key
@@ -625,6 +628,7 @@ mml-secure-en-decrypt-3
 (ert-deftest mml-secure-en-decrypt-4 ()
   "Encrypt message; then decrypt and test for expected result.
 In this test, encrypt-to-self variables are set to lists."
+  :tags (if (getenv "RPM_BUILD_ROOT") '(:unstable))
   (skip-unless (test-conf))
   ;; Send from sub@example.org, which has two keys; encrypt to both.
   (let ((mml-secure-openpgp-encrypt-to-self
-- 
2.45.2