From: Stefan Kangas <stefan@marxist.se>
Date: Fri, 8 Jan 2021 11:27:32 +0000 (+0100)
Subject: * test/lisp/subr-tests.el (subr-test-kbd): New test.
X-Git-Tag: emacs-28.0.90~4342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5cfe5a0a9c64f001f1cec3f78b811a3b6e69b09;p=emacs.git

* 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 8d19a268773..54f6eb4b2a1 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -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))