blob: 6772d6fa32f968b6cfd07df630953d5499d8e07c (
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
|
;;; test-mousetrap-mode--bind-events.el --- Tests for mouse-trap--bind-events-to-ignore -*- lexical-binding: t; -*-
;;; Commentary:
;; mouse-trap--bind-events-to-ignore is the per-category binding loop extracted
;; from mouse-trap--build-keymap-1 (which previously nested it five deep). It
;; binds a category's events, across modifier prefixes, to `ignore'. The full
;; keymap build stays covered by test-mousetrap-mode--build-keymap.el.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'mousetrap-mode)
(ert-deftest test-mousetrap-bind-events-wheel ()
"Normal: wheel events are bound to ignore across every prefix variant."
(let ((map (make-sparse-keymap))
(spec '((wheel . ("wheel-up" "wheel-down")))))
(mouse-trap--bind-events-to-ignore spec '("" "C-") map)
(should (eq (lookup-key map (kbd "<wheel-up>")) #'ignore))
(should (eq (lookup-key map (kbd "<C-wheel-up>")) #'ignore))
(should (eq (lookup-key map (kbd "<wheel-down>")) #'ignore))))
(ert-deftest test-mousetrap-bind-events-click ()
"Normal: type x button click events are bound to ignore."
(let ((map (make-sparse-keymap))
(spec '((types . ("mouse" "down-mouse")) (buttons . (1 3)))))
(mouse-trap--bind-events-to-ignore spec '("") map)
(should (eq (lookup-key map (kbd "<mouse-1>")) #'ignore))
(should (eq (lookup-key map (kbd "<mouse-3>")) #'ignore))
(should (eq (lookup-key map (kbd "<down-mouse-1>")) #'ignore))))
(ert-deftest test-mousetrap-bind-events-empty-spec-no-op ()
"Boundary: a spec with neither wheel nor types/buttons binds nothing."
(let ((map (make-sparse-keymap)))
(mouse-trap--bind-events-to-ignore '((other . t)) '("") map)
(should (null (lookup-key map (kbd "<mouse-1>"))))))
(provide 'test-mousetrap-mode--bind-events)
;;; test-mousetrap-mode--bind-events.el ends here
|
