diff options
| author | Noam Postavsky | 2019-05-26 21:55:00 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2019-05-26 21:55:00 -0400 |
| commit | dc9f8c1c63fd7fb2c39c9263424fe7fc9dca66ae (patch) | |
| tree | cb4c2a4b300c6d324f37b91ad76e982bd78cc9b1 | |
| parent | 9d5906d9d21da4b85a3a9316ebd693daaa5bec38 (diff) | |
| download | emacs-dc9f8c1c63fd7fb2c39c9263424fe7fc9dca66ae.tar.gz emacs-dc9f8c1c63fd7fb2c39c9263424fe7fc9dca66ae.zip | |
; Fix read-multiple-choice test
* test/lisp/emacs-lisp/rmc-tests.el (test-read-multiple-choice):
Rebind read-event, read-multiple-choice uses that since 2019-05-26
"Avoid infloop in read-multiple-choice (Bug#32257)".
| -rw-r--r-- | test/lisp/emacs-lisp/rmc-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/rmc-tests.el b/test/lisp/emacs-lisp/rmc-tests.el index b20bfd4e0c5..71c7835e204 100644 --- a/test/lisp/emacs-lisp/rmc-tests.el +++ b/test/lisp/emacs-lisp/rmc-tests.el | |||
| @@ -31,7 +31,7 @@ | |||
| 31 | 31 | ||
| 32 | (ert-deftest test-read-multiple-choice () | 32 | (ert-deftest test-read-multiple-choice () |
| 33 | (dolist (char '(?y ?n)) | 33 | (dolist (char '(?y ?n)) |
| 34 | (cl-letf* (((symbol-function #'read-char) (lambda () char)) | 34 | (cl-letf* (((symbol-function #'read-event) (lambda () char)) |
| 35 | (str (if (eq char ?y) "yes" "no"))) | 35 | (str (if (eq char ?y) "yes" "no"))) |
| 36 | (should (equal (list char str) | 36 | (should (equal (list char str) |
| 37 | (read-multiple-choice "Do it? " '((?y "yes") (?n "no")))))))) | 37 | (read-multiple-choice "Do it? " '((?y "yes") (?n "no")))))))) |