diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/epg-tests.el | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/test/lisp/epg-tests.el b/test/lisp/epg-tests.el index 9dd093e7927..36db4788011 100644 --- a/test/lisp/epg-tests.el +++ b/test/lisp/epg-tests.el | |||
| @@ -30,17 +30,8 @@ | |||
| 30 | (expand-file-name "data/epg" (getenv "EMACS_TEST_DIRECTORY")) | 30 | (expand-file-name "data/epg" (getenv "EMACS_TEST_DIRECTORY")) |
| 31 | "Directory containing epg test data.") | 31 | "Directory containing epg test data.") |
| 32 | 32 | ||
| 33 | (defconst epg-tests-program-alist-for-passphrase-callback | 33 | (defun epg-tests-find-usable-gpg-configuration (&optional _require-passphrase) |
| 34 | '((OpenPGP | 34 | (epg-find-configuration 'OpenPGP 'no-cache)) |
| 35 | nil | ||
| 36 | ("gpg" . "1.4.3")))) | ||
| 37 | |||
| 38 | (defun epg-tests-find-usable-gpg-configuration (&optional require-passphrase) | ||
| 39 | (epg-find-configuration | ||
| 40 | 'OpenPGP | ||
| 41 | 'no-cache | ||
| 42 | (if require-passphrase | ||
| 43 | epg-tests-program-alist-for-passphrase-callback))) | ||
| 44 | 35 | ||
| 45 | (defun epg-tests-passphrase-callback (_c _k _d) | 36 | (defun epg-tests-passphrase-callback (_c _k _d) |
| 46 | ;; Need to create a copy here, since the string will be wiped out | 37 | ;; Need to create a copy here, since the string will be wiped out |