* 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.
This commit is contained in:
Andrea Corallo 2020-10-03 21:33:08 +02:00
parent f43dbe65ce
commit 29f7024b6c

View file

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