Fix failing subr test
* test/lisp/subr-tests.el (subr-tests-bug22027): Fix mocked signature of `read-string' (bug#48022).
This commit is contained in:
parent
e1562bbab3
commit
bd5aebce03
1 changed files with 1 additions and 1 deletions
|
@ -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)))))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue