1 files changed, 41 insertions, 0 deletions
diff --git a/tests/test-mousetrap-mode--bind-events.el b/tests/test-mousetrap-mode--bind-events.el
new file mode 100644
index 000000000..6772d6fa3
--- /dev/null
+++ b/tests/test-mousetrap-mode--bind-events.el
@@ -0,0 +1,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