diff options
| author | Lars Ingebrigtsen | 2021-04-27 01:31:52 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-04-27 01:31:52 +0200 |
| commit | bd5aebce03b3e67007a4ea517b9938b729f97a14 (patch) | |
| tree | 50a5f93d2f748569e9e02f3d2837130b3f0b231f | |
| parent | e1562bbab333a96c492a9f181816e9e6f80ea0d0 (diff) | |
| download | emacs-bd5aebce03b3e67007a4ea517b9938b729f97a14.tar.gz emacs-bd5aebce03b3e67007a4ea517b9938b729f97a14.zip | |
Fix failing subr test
* test/lisp/subr-tests.el (subr-tests-bug22027): Fix mocked
signature of `read-string' (bug#48022).
| -rw-r--r-- | test/lisp/subr-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el index 8fa3917a0b9..1e146732163 100644 --- a/test/lisp/subr-tests.el +++ b/test/lisp/subr-tests.el | |||
| @@ -382,7 +382,7 @@ cf. Bug#25477." | |||
| 382 | "Test for https://debbugs.gnu.org/22027 ." | 382 | "Test for https://debbugs.gnu.org/22027 ." |
| 383 | (let ((default "foo") res) | 383 | (let ((default "foo") res) |
| 384 | (cl-letf (((symbol-function 'read-string) | 384 | (cl-letf (((symbol-function 'read-string) |
| 385 | (lambda (_prompt _init _hist def _inher-input) def))) | 385 | (lambda (_prompt &optional _init _hist def _inher-input) def))) |
| 386 | (setq res (read-passwd "pass: " 'confirm (mapconcat #'string default ""))) | 386 | (setq res (read-passwd "pass: " 'confirm (mapconcat #'string default ""))) |
| 387 | (should (string= default res))))) | 387 | (should (string= default res))))) |
| 388 | 388 | ||