1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00

Remove mml-sec-test that assumes the first signature

This is no longer supported; the user is asked for what signature to
use.
This commit is contained in:
Lars Ingebrigtsen 2020-10-01 05:19:49 +02:00
parent 26a8821250
commit 648de09e71

View File

@ -761,37 +761,6 @@ Use sign-with-sender and encrypt-to-self."
method "no-exp@example.org" "sub@example.org" 2 nil))
)))))
(ert-deftest mml-secure-sign-verify-2 ()
"Sign message without sender; then verify and test for expected result."
(skip-unless (test-conf))
(mml-secure-test-key-fixture
(lambda ()
(dolist (method (sign-standards) nil)
(let ((mml-secure-openpgp-sign-with-sender nil)
(mml-secure-smime-sign-with-sender nil))
;; A single signing key for sender sub@example.org is customized
;; in the fixture, but not used here.
;; By default, gpg uses the first secret key in the keyring, which
;; is 02372A42CA6D40FB (OpenPGP) or
;; 0E58229B80EE33959FF718FEEF25402B479DC6E2 (S/MIME) here.
(mml-secure-test-en-decrypt
method "uid1@example.org" "sub@example.org" 0 nil)
;; From sub@example.org, sign with specified key:
(let ((mml-secure-openpgp-signers '("02372A42CA6D40FB"))
(mml-secure-smime-signers
'("D06AA118653CC38E9D0CAF56ED7A2135E1582177")))
(mml-secure-test-en-decrypt
method "no-exp@example.org" "sub@example.org" 1 nil))
;; From sub@example.org, sign with different specified key:
(let ((mml-secure-openpgp-signers '("C3999CF1268DBEA2"))
(mml-secure-smime-signers
'("0E58229B80EE33959FF718FEEF25402B479DC6E2")))
(mml-secure-test-en-decrypt
method "no-exp@example.org" "sub@example.org" 1 nil))
)))))
(ert-deftest mml-secure-sign-verify-3 ()
"Try to sign message with expired OpenPGP subkey, which raises an error.
With Ma Gnus v0.14 and earlier a signature would be created with a wrong key."