blob: 9f1b6b3e6a6ba7c92b6df6693ce0d4d5381ee12b (
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
|
;;; test-mail-config--account-search-queries.el --- Tests for the mail account-nav helpers -*- lexical-binding: t; -*-
;;; Commentary:
;; cj/--mail-account-search-queries (pure: account name -> the four mu4e search
;; strings) and cj/--mail-make-account-map (builds the per-account nav keymap)
;; replace three near-identical defvar-keymap blocks that differed only by
;; maildir prefix. The map test invokes each binding with mu4e-search mocked,
;; which also verifies each loop-built closure captured its own query.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'mail-config)
(ert-deftest test-mail-account-search-queries-cmail ()
"Normal: the four searches are scoped to the account's INBOX maildir."
(should (equal (cj/--mail-account-search-queries "cmail")
'(("i" . "maildir:/cmail/INBOX")
("u" . "maildir:/cmail/INBOX AND flag:unread AND NOT flag:trashed")
("s" . "maildir:/cmail/INBOX AND flag:flagged")
("l" . "maildir:/cmail/INBOX AND size:5M..999M")))))
(ert-deftest test-mail-account-search-queries-prefix-varies ()
"Boundary: only the maildir prefix changes between accounts."
(should (equal (cdr (assoc "i" (cj/--mail-account-search-queries "dmail")))
"maildir:/dmail/INBOX"))
(should (equal (cdr (assoc "i" (cj/--mail-account-search-queries "gmail")))
"maildir:/gmail/INBOX")))
(ert-deftest test-mail-make-account-map-binds-four-keys ()
"Normal: the built keymap binds i/u/s/l to commands."
(let ((map (cj/--mail-make-account-map "cmail")))
(dolist (key '("i" "u" "s" "l"))
(should (commandp (keymap-lookup map key))))))
(ert-deftest test-mail-make-account-map-closures-capture-distinct-queries ()
"Normal: each binding runs its own account-scoped search (no closure leak).
mu4e-search is mocked to capture the query each command passes."
(let ((searched '()))
(cl-letf (((symbol-function 'mu4e-search)
(lambda (q) (push q searched))))
(let ((map (cj/--mail-make-account-map "dmail")))
(funcall (keymap-lookup map "i"))
(funcall (keymap-lookup map "u"))))
(should (member "maildir:/dmail/INBOX" searched))
(should (member "maildir:/dmail/INBOX AND flag:unread AND NOT flag:trashed"
searched))))
(provide 'test-mail-config--account-search-queries)
;;; test-mail-config--account-search-queries.el ends here
|
