From f5cfe5a0a9c64f001f1cec3f78b811a3b6e69b09 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 8 Jan 2021 12:27:32 +0100 Subject: [PATCH] * test/lisp/subr-tests.el (subr-test-kbd): New test. --- test/lisp/subr-tests.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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)) -- 2.39.5