From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 26 Apr 2021 23:31:52 +0000 (+0200)
Subject: Fix failing subr test
X-Git-Tag: emacs-28.0.90~2700
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd5aebce03b3e67007a4ea517b9938b729f97a14;p=emacs.git

Fix failing subr test

* test/lisp/subr-tests.el (subr-tests-bug22027): Fix mocked
signature of `read-string' (bug#48022).
---

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)))))