blob: 85b872b0ed9b8e5a96306ce0e2df0a09946fb4df (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;;; test-prog-c-mode-keybindings.el --- Tests for cj/c-mode-keybindings -*- lexical-binding: t; -*-
;;; Commentary:
;; Verifies the C mode hook installs the S-modifier overrides on the
;; current buffer's local keymap.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'prog-c)
(ert-deftest test-prog-c-mode-keybindings-normal-installs-fkey-overrides ()
"Normal: cj/c-mode-keybindings binds S-F5 to cj/disabled and S-F6 to gdb."
(with-temp-buffer
(use-local-map (make-sparse-keymap))
(cj/c-mode-keybindings)
(should (eq (lookup-key (current-local-map) (kbd "S-<f5>"))
'cj/disabled))
(should (eq (lookup-key (current-local-map) (kbd "S-<f6>"))
'gdb))))
(provide 'test-prog-c-mode-keybindings)
;;; test-prog-c-mode-keybindings.el ends here
|
