blob: fcae89a6b3ab73e995e17b4475c69b519e56cb30 (
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
|
;;; test-integration-mousetrap-mode-lighter-click.el --- Integration tests for lighter clicking -*- lexical-binding: t; -*-
;;; Commentary:
;; Integration tests for mousetrap-mode lighter click functionality.
;; Tests that clicking the lighter properly toggles the mode AND
;; rebuilds the keymap based on the current major mode profile.
;;; Code:
(require 'ert)
(require 'mousetrap-mode)
;;; Integration Tests - Lighter Click Behavior
(ert-deftest test-integration-lighter-click-enables-mode-in-dashboard ()
"Test clicking lighter in dashboard-mode enables mode with correct profile.
Dashboard uses primary-click profile which blocks scrolling but allows mouse-1."
(with-temp-buffer
(let ((major-mode 'dashboard-mode)
(mouse-trap-mode nil))
;; Start with mode disabled
(should-not mouse-trap-mode)
;; Simulate clicking lighter to enable (calls mouse-trap-mode with 1)
(mouse-trap-mode 1)
;; Mode should be enabled
(should mouse-trap-mode)
;; Keymap should be built for dashboard (primary-click profile)
(should (keymapp mouse-trap-mode-map))
;; Verify profile-specific behavior: mouse-1 allowed, scroll blocked
(should (eq (lookup-key mouse-trap-mode-map (kbd "<mouse-1>")) nil))
(should (eq (lookup-key mouse-trap-mode-map (kbd "<wheel-up>")) 'ignore))
;; Keymap should be in minor-mode-map-alist
(should (assq 'mouse-trap-mode minor-mode-map-alist)))))
(ert-deftest test-integration-lighter-click-disables-mode ()
"Test clicking lighter when mode is enabled disables it and removes keymap."
(with-temp-buffer
(emacs-lisp-mode)
(mouse-trap-mode 1)
(should mouse-trap-mode)
(should (assq 'mouse-trap-mode minor-mode-map-alist))
;; Simulate clicking lighter to disable
(mouse-trap-mode -1)
;; Mode should be disabled
(should-not mouse-trap-mode)
;; Keymap should be removed from minor-mode-map-alist
(should-not (assq 'mouse-trap-mode minor-mode-map-alist))))
(ert-deftest test-integration-lighter-click-toggle-updates-keymap ()
"Test toggling mode via lighter click rebuilds keymap for current mode.
This is the critical test - when you click to enable, it should rebuild
the keymap based on the CURRENT major mode's profile."
(with-temp-buffer
(let ((major-mode 'dashboard-mode))
;; Start disabled
(mouse-trap-mode -1)
(should-not mouse-trap-mode)
;; Enable via click (simulate)
(mouse-trap-mode 1)
(should mouse-trap-mode)
;; Should have dashboard profile (primary-click)
(let ((map1 mouse-trap-mode-map))
(should (eq (lookup-key map1 (kbd "<mouse-1>")) nil)) ; allowed
(should (eq (lookup-key map1 (kbd "<wheel-up>")) 'ignore)) ; blocked
;; Disable
(mouse-trap-mode -1)
(should-not mouse-trap-mode)
;; Change to different mode
(setq major-mode 'pdf-view-mode)
;; Enable again
(mouse-trap-mode 1)
(should mouse-trap-mode)
;; Should now have pdf-view profile (full - all allowed)
(let ((map2 mouse-trap-mode-map))
(should (eq (lookup-key map2 (kbd "<mouse-1>")) nil)) ; allowed
(should (eq (lookup-key map2 (kbd "<wheel-up>")) nil))) ; allowed now!
;; Verify maps are different
(should-not (equal map1 mouse-trap-mode-map))))))
(ert-deftest test-integration-lighter-click-respects-buffer-local-mode ()
"Test lighter click affects only current buffer (buffer-local behavior)."
(let ((buf1 (generate-new-buffer "test1"))
(buf2 (generate-new-buffer "test2")))
(unwind-protect
(progn
;; Buffer 1: enable mode manually
(with-current-buffer buf1
(setq major-mode 'text-mode) ; Use setq to avoid hooks
(mouse-trap-mode 1)
(should mouse-trap-mode))
;; Buffer 2: mode should be independent (not auto-enabled)
(with-current-buffer buf2
(setq major-mode 'text-mode) ; Use setq to avoid hooks
(should-not mouse-trap-mode)
;; Enable in buf2
(mouse-trap-mode 1)
(should mouse-trap-mode))
;; Verify buf1 still enabled
(with-current-buffer buf1
(should mouse-trap-mode))
;; Disable buf2 via click
(with-current-buffer buf2
(mouse-trap-mode -1)
(should-not mouse-trap-mode))
;; Verify buf1 unaffected
(with-current-buffer buf1
(should mouse-trap-mode)))
(kill-buffer buf1)
(kill-buffer buf2))))
(ert-deftest test-integration-lighter-click-with-excluded-mode ()
"Test lighter click works even in excluded modes.
Auto-enable is blocked, but manual toggle should still work."
(with-temp-buffer
(dired-mode default-directory)
;; Auto-enable is blocked for dired
(mouse-trap-maybe-enable)
(should-not mouse-trap-mode)
;; But manual toggle should work
(mouse-trap-mode 1)
(should mouse-trap-mode)
(should (assq 'mouse-trap-mode minor-mode-map-alist))
;; Toggle off
(mouse-trap-mode -1)
(should-not mouse-trap-mode)
(should-not (assq 'mouse-trap-mode minor-mode-map-alist))))
(ert-deftest test-integration-lighter-click-multiple-rapid-toggles ()
"Test rapid clicking (multiple toggles) is stable and doesn't corrupt state."
(with-temp-buffer
(emacs-lisp-mode)
;; Rapid toggle 10 times
(dotimes (i 10)
(if (= (mod i 2) 0)
(mouse-trap-mode 1)
(mouse-trap-mode -1)))
;; Should end in disabled state (even number of toggles)
(should-not mouse-trap-mode)
(should-not (assq 'mouse-trap-mode minor-mode-map-alist))
;; Enable one more time to end enabled
(mouse-trap-mode 1)
(should mouse-trap-mode)
(should (assq 'mouse-trap-mode minor-mode-map-alist))
(should (keymapp mouse-trap-mode-map))))
(provide 'test-integration-mousetrap-mode-lighter-click)
;;; test-integration-mousetrap-mode-lighter-click.el ends here
|
