diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-12-28 00:09:08 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-12-28 00:09:08 +0100 |
| commit | fb9b7b70f55dd49d3019a9c69663076e942d857e (patch) | |
| tree | 6ce01747a4354aa10821261213ceb007f14c6b4c /test/lisp/emacs-lisp | |
| parent | 13ef21e84a8c4af0cd9e7a5f9c56a359b1344fe9 (diff) | |
| download | emacs-fb9b7b70f55dd49d3019a9c69663076e942d857e.tar.gz emacs-fb9b7b70f55dd49d3019a9c69663076e942d857e.tar.bz2 emacs-fb9b7b70f55dd49d3019a9c69663076e942d857e.zip | |
Fix read-multiple-choice tests
* lisp/emacs-lisp/rmc.el (rmc--add-key-description): Fix typo.
* test/lisp/emacs-lisp/rmc-tests.el
(test-rmc--add-key-description)
(test-rmc--add-key-description/with-attributes)
(test-rmc--add-key-description/non-graphical-display): Fix tests.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/rmc-tests.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/lisp/emacs-lisp/rmc-tests.el b/test/lisp/emacs-lisp/rmc-tests.el index 5a79c505ae2..c1e838d051e 100644 --- a/test/lisp/emacs-lisp/rmc-tests.el +++ b/test/lisp/emacs-lisp/rmc-tests.el @@ -34,9 +34,9 @@ (should (equal (rmc--add-key-description '(?y "yes")) '(?y . "yes"))) (should (equal (rmc--add-key-description '(?n "foo")) - '(?n . "[n] foo"))) + '(?n . "n foo"))) (should (equal (rmc--add-key-description '(?\s "foo bar")) - `(?\s . "[SPC] foo bar"))))) + `(?\s . "SPC foo bar"))))) (ert-deftest test-rmc--add-key-description/with-attributes () (cl-letf (((symbol-function 'display-supports-face-attributes-p) (lambda (_ _) t))) @@ -45,10 +45,10 @@ `(?y . ,(concat (propertize "y" 'face 'read-multiple-choice-face) "es")))) (should (equal-including-properties (rmc--add-key-description '(?n "foo")) - `(?n . ,(concat "[" (propertize "n" 'face 'read-multiple-choice-face) "] foo")))) + `(?n . ,(concat (propertize "n" 'face 'read-multiple-choice-face) " foo")))) (should (equal-including-properties (rmc--add-key-description '(?\s "foo bar")) - `(?\s . ,(concat "[" (propertize "SPC" 'face 'read-multiple-choice-face) "] foo bar")))))) + `(?\s . ,(concat (propertize "SPC" 'face 'read-multiple-choice-face) " foo bar")))))) (ert-deftest test-rmc--add-key-description/non-graphical-display () (cl-letf (((symbol-function 'display-supports-face-attributes-p) (lambda (_ _) nil))) @@ -57,7 +57,7 @@ '(?y . "[Y]es"))) (should (equal-including-properties (rmc--add-key-description '(?n "foo")) - '(?n . "[n] foo"))))) + `(?n . ,(concat (propertize "n" 'face 'help-key-binding) " foo")))))) (ert-deftest test-read-multiple-choice () (dolist (char '(?y ?n)) |