From bd5aebce03b3e67007a4ea517b9938b729f97a14 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 27 Apr 2021 01:31:52 +0200 Subject: [PATCH] Fix failing subr test * test/lisp/subr-tests.el (subr-tests-bug22027): Fix mocked signature of `read-string' (bug#48022). --- test/lisp/subr-tests.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el index 8fa3917a0b9..1e146732163 100644 --- a/test/lisp/subr-tests.el +++ b/test/lisp/subr-tests.el @@ -382,7 +382,7 @@ cf. Bug#25477." "Test for https://debbugs.gnu.org/22027 ." (let ((default "foo") res) (cl-letf (((symbol-function 'read-string) - (lambda (_prompt _init _hist def _inher-input) def))) + (lambda (_prompt &optional _init _hist def _inher-input) def))) (setq res (read-passwd "pass: " 'confirm (mapconcat #'string default ""))) (should (string= default res))))) -- 2.39.5