From 84174667ab624d16ba4c4f806d25e305ab919b80 Mon Sep 17 00:00:00 2001 From: Peter Oliver Date: Mon, 15 Jul 2024 16:19:10 +0100 Subject: [PATCH 3/4] 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 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/test/lisp/gnus/mml-sec-tests.el b/test/lisp/gnus/mml-sec-tests.el index 7abd1bd65a3..a381ff8e94d 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 () @@ -369,6 +370,7 @@ mml-secure-find-usable-keys-2 (ert-deftest mml-secure-select-preferred-keys-1 () "If only one key exists for an e-mail address, it is the preferred one." + :tags (if (getenv "RPM_BUILD_ROOT") '(:unstable)) (skip-unless (test-conf)) (mml-secure-test-fixture (lambda () @@ -407,6 +409,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 +584,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 +629,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