diff options
Diffstat (limited to 'test/lisp/emacs-lisp/rmc-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/rmc-tests.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/lisp/emacs-lisp/rmc-tests.el b/test/lisp/emacs-lisp/rmc-tests.el index 5add24c479a..de6db13347b 100644 --- a/test/lisp/emacs-lisp/rmc-tests.el +++ b/test/lisp/emacs-lisp/rmc-tests.el @@ -33,10 +33,12 @@ (ert-deftest test-read-multiple-choice () (dolist (char '(?y ?n)) - (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")))))))) + (let ((str (if (eq char ?y) "yes" "no"))) + (advice-flet ((read-event + (lambda () char))) + (should (equal (list char str) + (read-multiple-choice "Do it? " + '((?y "yes") (?n "no"))))))))) (provide 'rmc-tests) |