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

Fix failing auth-source test

* test/lisp/auth-source-tests.el
(auth-source-test-secrets-create-secret): Fix test failing because
the mocked `read-string' had the wrong interface.
---

diff --git a/test/lisp/auth-source-tests.el b/test/lisp/auth-source-tests.el
index 19216d3c24a..1c4bd8d36d4 100644
--- a/test/lisp/auth-source-tests.el
+++ b/test/lisp/auth-source-tests.el
@@ -320,8 +320,9 @@
     ;; Redefine `read-*' in order to avoid interactive input.
     (cl-letf (((symbol-function 'read-passwd) (lambda (_) passwd))
               ((symbol-function 'read-string)
-               (lambda (_prompt _initial _history default _inherit-input-method)
-		 default)))
+               (lambda (_prompt &optional _initial _history default
+                                _inherit-input-method)
+                 default)))
       (setq auth-info
             (car (auth-source-search
                   :max 1 :host host :require '(:user :secret) :create t))))