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:
@@ -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))))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user