* test/lisp/subr-tests.el (subr-test-kbd): New test.

This commit is contained in:
Stefan Kangas 2021-01-08 12:27:32 +01:00
parent 705292c200
commit f5cfe5a0a9

View file

@ -61,6 +61,18 @@
(quote
(0 font-lock-keyword-face))))))))
;;;; Keymap support.
(ert-deftest subr-test-kbd ()
(should (equal (kbd "f") "f"))
(should (equal (kbd "F1") "F1"))
(should (equal (kbd "RET") "\C-m"))
(should (equal (kbd "C-x a") "\C-xa")))
;;;; Mode hooks.
(defalias 'subr-tests--parent-mode
(if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))