martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use lexical-binding in mml-sec-tests.el

Browse Source 
* test/lisp/gnus/mml-sec-tests.el: Use lexical-binding.
(mml-secure-test-mail-fixture)
(mml-secure-test-en-decrypt-with-passphrase): Fix warnings.
This commit is contained in:
Stefan Kangas
2020-09-10 19:32:33 +02:00
parent ba3e2b80c0
commit be4c4a7389
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
test/lisp/gnus/mml-sec-tests.el
View File

@@ -1,4 +1,4 @@
;;; gnustest-mml-sec.el --- Tests mml-sec.el, see README-mml-secure.txt.
;;; mml-sec-tests.el --- Tests mml-sec.el, see README-mml-secure.txt. -*- lexical-binding:t -*-
;; Copyright (C) 2015 Free Software Foundation, Inc.
;; Author: Jens Lechtenbörger <jens.lechtenboerger@fsfe.org>
@@ -51,6 +51,8 @@ Mostly, the empty passphrase is used. However, the keys for
'(sign-pgp sign-pgp-mime sign-smime)
'(sign-pgp sign-pgp-mime)))
(defvar mml-smime-use)
(defun mml-secure-test-fixture (body &optional interactive)
"Setup GnuPG home containing test keys and prepare environment for BODY.
If optional INTERACTIVE is non-nil, allow questions to the user in case of
@@ -120,9 +122,9 @@ Subject: Test
Pass optional INTERACTIVE to mml-secure-test-fixture."
(mml-secure-test-fixture
(lambda ()
(let ((context (if (memq method '(enc-smime enc-sign-smime sign-smime))
(epg-make-context 'CMS)
(epg-make-context 'OpenPGP)))
(let ((_context (if (memq method '(enc-smime enc-sign-smime sign-smime))
(epg-make-context 'CMS)
(epg-make-context 'OpenPGP)))
;; Verify and decrypt by default.
(mm-verify-option 'known)
(mm-decrypt-option 'known)
@@ -546,6 +548,10 @@ Pass optional INTERACTIVE to mml-secure-test-mail-fixture."
))))))
interactive))
(defvar mml-smime-cache-passphrase)
(defvar mml2015-cache-passphrase)
(defvar mml1991-cache-passphrase)
(defun mml-secure-test-en-decrypt-with-passphrase
(method to from checksig jl-passphrase do-cache
&optional enc-keys expectfail)
@@ -562,7 +568,7 @@ If optional EXPECTFAIL is non-nil, a decryption failure is expected."
(mml-smime-cache-passphrase do-cache)
)
(cl-letf (((symbol-function 'read-passwd)
(lambda (prompt &optional confirm default) jl-passphrase)))
(lambda (_prompt &optional _confirm _default) jl-passphrase)))
(mml-secure-test-en-decrypt method to from checksig t enc-keys expectfail)
)))
@@ -897,4 +903,4 @@ So the second decryption fails."
(let ((with-smime nil))
(ert-run-tests-batch)))
;;; gnustest-mml-sec.el ends here
;;; mml-sec-tests.el ends here