Kill gpg-agents started by mml-sec-tests (bug#43358)

1 files changed, 15 insertions, 1 deletions

diff --git a/test/lisp/gnus/mml-sec-tests.el b/test/lisp/gnus/mml-sec-tests.el
index b715383c777..ba0783ba8cf 100644
--- a/test/lisp/gnus/mml-sec-tests.el
+++ b/test/lisp/gnus/mml-sec-tests.el
@@ -82,7 +82,9 @@ instead of gpg-agent."
               ;; not look in the proper places otherwise, see:
               ;; https://bugs.gnupg.org/gnupg/issue2126
               (setenv "GNUPGHOME" epg-gpg-home-directory)
-              (funcall body))
+              (unwind-protect
+                  (funcall body)
+                (mml-sec-test--kill-gpg-agent)))
           (error
            (setenv "GPG_AGENT_INFO" agent-info)
            (setenv "GNUPGHOME" gpghome)
@@ -903,4 +905,16 @@ So the second decryption fails."
   (let ((with-smime nil))
     (ert-run-tests-batch)))
 
+(defun mml-sec-test--kill-gpg-agent ()
+  (dolist (pid (list-system-processes))
+    (let ((atts (process-attributes pid)))
+      (when (and (equal (cdr (assq 'user atts)) (user-login-name))
+                 (equal (cdr (assq 'comm atts)) "gpg-agent")
+                 (string-match
+                  (concat "homedir.*"
+                          (regexp-quote (expand-file-name "test/data/mml-sec"
+                                                          source-directory)))
+                  (cdr (assq 'args atts))))
+        (call-process "kill" nil nil nil (format "%d" pid))))))
+
 ;;; mml-sec-tests.el ends here