Commit dc9f8c1c authored by Noam Postavsky's avatar Noam Postavsky

; 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)".
parent 9d5906d9
Pipeline #1811 failed with stage
in 49 minutes and 38 seconds
......@@ -31,7 +31,7 @@
(ert-deftest test-read-multiple-choice ()
(dolist (char '(?y ?n))
(cl-letf* (((symbol-function #'read-char) (lambda () char))
(cl-letf* (((symbol-function #'read-event) (lambda () char))
(str (if (eq char ?y) "yes" "no")))
(should (equal (list char str)
(read-multiple-choice "Do it? " '((?y "yes") (?n "no"))))))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment