blob: 3be0313b8e3838716ddd0f5d3ae2a3aec7be23b4 (
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
|
;;; test-ui-navigation--window-resize.el --- Tests for the C-; b <arrow> resize keys -*- lexical-binding: t; -*-
;;; Commentary:
;; `C-; b <left>/<right>/<up>/<down>' moves the active window's divider in the
;; arrow's direction (via `windsize'), then keeps `cj/window-resize-map' active
;; so bare arrows keep nudging until any other key. We own the dispatch
;; (`cj/window-resize-sticky' -- pick the matching `windsize-*' command, run it,
;; arm the loop) and the keymaps; the resize math is `windsize's job and isn't
;; tested here.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'ui-navigation)
(ert-deftest test-ui-navigation-window-resize-map-bindings ()
"Normal: the sticky-resize map maps the four arrows to the `windsize' commands."
(should (eq (keymap-lookup cj/window-resize-map "<left>") #'windsize-left))
(should (eq (keymap-lookup cj/window-resize-map "<right>") #'windsize-right))
(should (eq (keymap-lookup cj/window-resize-map "<up>") #'windsize-up))
(should (eq (keymap-lookup cj/window-resize-map "<down>") #'windsize-down)))
(ert-deftest test-ui-navigation-window-resize-sticky-dispatches-and-arms ()
"Normal: `cj/window-resize-sticky' runs the `windsize' command matching the
arrow key that triggered it, then arms the sticky-repeat map."
(dolist (case '((left . windsize-left)
(right . windsize-right)
(up . windsize-up)
(down . windsize-down)))
(let ((ran nil)
(overriding-terminal-local-map nil)
(pre-command-hook nil))
(cl-letf (((symbol-function (cdr case))
(lambda (&rest _) (interactive) (setq ran t))))
(let ((last-command-event (car case)))
(cj/window-resize-sticky)))
(should ran) ; dispatched to the right command
(should overriding-terminal-local-map)))) ; loop armed
(ert-deftest test-ui-navigation-window-resize-bound-under-c-semicolon-b ()
"Normal: `C-; b <arrow>' (each direction) reaches the sticky-resize command."
(require 'custom-buffer-file)
(dolist (arrow '("<left>" "<right>" "<up>" "<down>"))
(should (eq (keymap-lookup cj/buffer-and-file-map arrow)
#'cj/window-resize-sticky))))
(provide 'test-ui-navigation--window-resize)
;;; test-ui-navigation--window-resize.el ends here
|
