diff options
| -rw-r--r-- | test/lisp/epg-tests.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/test/lisp/epg-tests.el b/test/lisp/epg-tests.el index c61527207ff..9dd093e7927 100644 --- a/test/lisp/epg-tests.el +++ b/test/lisp/epg-tests.el @@ -53,8 +53,12 @@ &rest body) "Set up temporary locations and variables for testing." (declare (indent 1) (debug (sexp body))) - `(let ((epg-tests-home-directory (make-temp-file "epg-tests-homedir" t)) - (process-environment (cons "GPG_AGENT_INFO" process-environment))) + `(let* ((epg-tests-home-directory (make-temp-file "epg-tests-homedir" t)) + (process-environment + (append + (list "GPG_AGENT_INFO" + (format "GNUPGHOME=%s" epg-tests-home-directory)) + process-environment))) (unwind-protect (let ((context (epg-make-context 'OpenPGP))) (setf (epg-context-program context) |