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

diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 8d19a2687738ea90faaf4bb96b4c1b48a11e97c2..54f6eb4b2a19bd43fe022eadf3880c8d6c271e1b 100644 (file)
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -61,6 +61,18 @@
                      (quote
                       (0 font-lock-keyword-face))))))))
 
+\f
+;;;; 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")))
+
+\f
+;;;; Mode hooks.
+
 (defalias 'subr-tests--parent-mode
   (if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))