blob: 02a74692e2d2a703f671a81d71c3c06c3b825296 (
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
|
;;; 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; require is
mocked so the commands' mu4e load never pulls the real package in batch."
(let ((searched '()))
(cl-letf (((symbol-function 'require)
(lambda (feature &rest _) feature))
((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))))
(ert-deftest test-mail-make-account-map-loads-mu4e-before-search ()
"Error: a nav command loads mu4e before it calls `mu4e-search'.
The C-; e maps register eagerly at startup, but `mu4e-search' carries no
autoload cookie, so a nav key pressed before mu4e's first launch signaled
void-function. The command must require mu4e first, then search."
(let ((events '()))
(cl-letf (((symbol-function 'require)
(lambda (feature &rest _) (push (list :require feature) events) feature))
((symbol-function 'mu4e-search)
(lambda (q) (push (list :search q) events))))
(funcall (keymap-lookup (cj/--mail-make-account-map "cmail") "i")))
(should (equal (nreverse events)
'((:require mu4e)
(:search "maildir:/cmail/INBOX"))))))
(provide 'test-mail-config--account-search-queries)
;;; test-mail-config--account-search-queries.el ends here
|
