procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix read-multiple-choice tests

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2021-12-28 00:09:08 +01:00
parent 13ef21e84a
commit fb9b7b70f5
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/rmc.el
View file

@ -41,7 +41,7 @@
(format "%s %s"
(if graphical-terminal
(propertize desc 'face 'read-multiple-choice-face)
(propertize desc 'face 'help-key-name))
(propertize desc 'face 'help-key-binding))
name))
;; The prompt character is in the name, so highlight
;; it on graphical terminals.

10
test/lisp/emacs-lisp/rmc-tests.el
View file

@ -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))