diff options
Diffstat (limited to 'test/src/keymap-tests.el')
| -rw-r--r-- | test/src/keymap-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/src/keymap-tests.el b/test/src/keymap-tests.el index 74fb3c892db..d4f5fc3f190 100644 --- a/test/src/keymap-tests.el +++ b/test/src/keymap-tests.el @@ -248,6 +248,18 @@ g .. h foo 0 .. 3 foo "))))) +(ert-deftest keymap--key-description () + (should (equal (key-description [right] [?\C-x]) + "C-x <right>")) + (should (equal (key-description [M-H-right] [?\C-x]) + "C-x M-H-<right>")) + (should (equal (single-key-description 'home) + "<home>")) + (should (equal (single-key-description 'home t) + "home")) + (should (equal (single-key-description 'C-s-home) + "C-s-<home>"))) + (provide 'keymap-tests) ;;; keymap-tests.el ends here |