* 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:
parent
f43dbe65ce
commit
29f7024b6c
1 changed files with 1 additions and 1 deletions
|
@ -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)))))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue