Fix gpg-agent killing in mml-sec-tests

* test/lisp/gnus/mml-sec-tests.el (mml-sec-test--kill-gpg-agent):
Identify the gpg-agent more successfully after the resource dir
makeover.
This commit is contained in:
Lars Ingebrigtsen
2020-12-25 20:56:22 +01:00
parent 90ec81f5b2
commit 00b8fdf29b

View File

@@ -883,7 +883,8 @@ So the second decryption fails."
(equal (cdr (assq 'comm atts)) "gpg-agent")
(string-match
(concat "homedir.*"
(regexp-quote (ert-resource-directory)))
(regexp-quote (directory-file-name
(ert-resource-directory))))
(cdr (assq 'args atts))))
(call-process "kill" nil nil nil (format "%d" pid))))))