andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add test for text-char-description

Browse source 
* test/src/keymap-tests.el (keymap-text-char-description): New
test.
This commit is contained in:
Stefan Kangas 2021-12-26 06:55:06 +01:00
parent 101bbd1392
commit 6866cf9c37
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
test/src/keymap-tests.el
View file

@ -407,6 +407,21 @@ g .. h foo
(define-key child [?a] nil t)
(should (eq (lookup-key child [?a]) 'foo))))
(ert-deftest keymap-text-char-description ()
(should (equal (text-char-description ?a) "a"))
(should (equal (text-char-description ?\s) " "))
(should (equal (text-char-description ?\t) "^I"))
(should (equal (text-char-description ?\^C) "^C"))
(should (equal (text-char-description ?\^?) "^?"))
(should (equal (text-char-description #x80) "€"))
(should (equal (text-char-description ?å) "å"))
(should (equal (text-char-description ?Ş) "Ş"))
(should (equal (text-char-description ?Ā) "Ā"))
(should-error (text-char-description "c"))
(should-error (text-char-description [?\C-x ?l]))
(should-error (text-char-description ?\M-c))
(should-error (text-char-description ?\s-c)))
(provide 'keymap-tests)
;;; keymap-tests.el ends here