feature/native-comp 29f7024 6/7: * Fix a test in test/lisp/subr-tests.el

[Andrea Corallo]

branch: feature/native-comp
commit 29f7024b6cfc01d6cae10603733b35784b4e4aef
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * Fix a test in test/lisp/subr-tests.el
    
        * test/lisp/subr-tests.el (subr-tests-bug22027): Redefine
        `read-string' with a lambda with the same number of arguments.
---
 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 035c064..c3dfd27 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -338,7 +338,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) def)))
+               (lambda (_prompt _init _hist def _inher-input) def)))
       (setq res (read-passwd "pass: " 'confirm (mapconcat #'string default 
"")))
       (should (string= default res)))))