blob: 17a21b19e6d014790913c06b23bfc00729ff8e37 (
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
26
27
28
29
30
31
32
33
34
35
36
37
38
|
;;; test-org-reveal-config-keymap.el --- Tests for org-reveal-config prefix keymap -*- lexical-binding: t; -*-
;;; Commentary:
;; The presentation commands are reached through `cj/reveal-map', a prefix
;; keymap registered under "C-; p" via `cj/register-prefix-map'. These
;; tests pin that structure so the module can't silently regress to raw
;; `global-set-key' calls (which carry a hidden load-order dependency on
;; keybindings.el establishing "C-;" as a prefix first).
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'keybindings)
(require 'org-reveal-config)
(ert-deftest test-org-reveal-config-reveal-map-is-a-keymap ()
"Normal: `cj/reveal-map' is a keymap."
(should (keymapp cj/reveal-map)))
(ert-deftest test-org-reveal-config-reveal-map-bindings ()
"Normal: each presentation command is reachable under `cj/reveal-map'."
(dolist (pair '(("SPC" . cj/reveal-present)
("e" . cj/reveal-export)
("p" . cj/reveal-preview-start)
("s" . cj/reveal-preview-stop)
("h" . cj/reveal-insert-header)
("H" . cj/reveal-remove-headers)
("n" . cj/reveal-new)))
(should (eq (keymap-lookup cj/reveal-map (car pair)) (cdr pair)))))
(ert-deftest test-org-reveal-config-reveal-map-registered-under-p ()
"Normal: `cj/reveal-map' is registered under \"p\" in `cj/custom-keymap'."
(should (eq (keymap-lookup cj/custom-keymap "p") cj/reveal-map)))
(provide 'test-org-reveal-config-keymap)
;;; test-org-reveal-config-keymap.el ends here
|
