blob: 729d497cb187ed9fe9bebc659042b09accb460e5 (
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
;;; test-org-config-keymap-ownership.el --- Tests for Org keymap ownership -*- lexical-binding: t; -*-
;;; Commentary:
;; Ensure org-config owns C-; O through one keymap.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(setq load-prefer-newer t)
(defun org-appear-mode (&optional _arg)
"Stub `org-appear-mode' for loading org-config in batch tests.")
(provide 'org-appear)
(require 'org-config)
(ert-deftest test-org-config-keymap-ownership-normal-org-prefix-uses-org-map ()
"C-; O should be mounted through `cj/org-map'."
(should (eq (keymap-lookup cj/custom-keymap "O")
cj/org-map)))
(ert-deftest test-org-config-keymap-ownership-normal-clear-cache-on-org-map ()
"The Org prefix should expose the cache-clear command on capital C.
Lowercase `c' is reserved as a sub-prefix for table column operations
(`c i' insert, `c d' delete); the single-key org commands under this
menu use capitals to leave the lowercase letters free as table
sub-prefixes."
(should (eq (keymap-lookup cj/org-map "C")
#'cj/org-clear-element-cache)))
(ert-deftest test-org-config-keymap-ownership-table-row-bindings ()
"Table row operations live directly under the org menu at `r i' /
`r d', no longer behind a `T' sub-prefix."
(should (eq (keymap-lookup cj/org-map "r i") #'org-table-insert-row))
(should (eq (keymap-lookup cj/org-map "r d") #'org-table-kill-row)))
(ert-deftest test-org-config-keymap-ownership-table-column-bindings ()
"Table column operations live directly under the org menu at `c i' /
`c d', sharing the `c' prefix that used to host the clear-cache
command (which moved to capital `C')."
(should (eq (keymap-lookup cj/org-map "c i") #'org-table-insert-column))
(should (eq (keymap-lookup cj/org-map "c d") #'org-table-delete-column)))
(ert-deftest test-org-config-keymap-ownership-narrow-bindings ()
"Narrow / widen sit directly under `C-; O' (flat, no sub-prefix).
Lowercase `n' narrows to the current subtree; capital `N' widens,
matching the lowercase-creates / uppercase-cancels pattern shared
with the sparse-tree sub-prefix. Sibling-stepping is on `>' / `<'
at the top level."
(should (eq (keymap-lookup cj/org-map "n") #'org-narrow-to-subtree))
(should (eq (keymap-lookup cj/org-map "N") #'widen))
(should (eq (keymap-lookup cj/org-map ">") #'cj/org-narrow-forward))
(should (eq (keymap-lookup cj/org-map "<") #'cj/org-narrow-backwards)))
(ert-deftest test-org-config-keymap-ownership-sparse-tree-bindings ()
"Sparse-tree commands sit directly under `C-; O' (flat).
Lowercase creates, capital of the same letter cancels: `s' /
`S' for match-sparse-tree, `t' / `T' for show-todo-tree. Both
capitals resolve to `org-show-all' -- the user's mental model is
\"capital cancels the lowercase I just ran\" without having to
remember which letter the cancel actually lives on. `R' is
`org-reveal' (no lowercase pair -- `r' is the table-row sub-prefix)."
(should (eq (keymap-lookup cj/org-map "s") #'org-match-sparse-tree))
(should (eq (keymap-lookup cj/org-map "S") #'org-show-all))
(should (eq (keymap-lookup cj/org-map "t") #'org-show-todo-tree))
(should (eq (keymap-lookup cj/org-map "T") #'org-show-all))
(should (eq (keymap-lookup cj/org-map "R") #'org-reveal)))
(ert-deftest test-org-config-keymap-ownership-regression-no-duplicate-org-keymap ()
"The old duplicate `cj/org-keymap' binding should not exist."
(should-not (boundp 'cj/org-keymap)))
(ert-deftest test-org-config-keymap-ownership-normal-clear-cache-defaults-all ()
"Cache clear should reset all Org buffers by default."
(let ((current-prefix-arg nil)
(calls nil))
(cl-letf (((symbol-function 'org-element-cache-reset)
(lambda (&optional arg) (push arg calls))))
(cj/org-clear-element-cache))
(should (equal calls '(all)))))
(ert-deftest test-org-config-keymap-ownership-normal-prefix-clears-current-buffer ()
"Cache clear should reset only the current Org buffer with a prefix."
(let ((current-prefix-arg '(4))
(calls nil))
(cl-letf (((symbol-function 'org-element-cache-reset)
(lambda (&optional arg) (push arg calls))))
(with-temp-buffer
(setq major-mode 'org-mode)
(cj/org-clear-element-cache)))
(should (equal calls '(nil)))))
(provide 'test-org-config-keymap-ownership)
;;; test-org-config-keymap-ownership.el ends here
|
