blob: d2e2cc0b7f62fe55922954f48f768f80129e526e (
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
|
;;; test-mail-config.el --- Tests for mail-config keymap wiring -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests that mail-config wires the attachment-save commands (defined in
;; `mu4e-attachments') into its `cj/email-map' prefix keymap.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'mail-config)
(ert-deftest test-mail-config-email-map-attachment-bindings ()
"Normal: the email prefix map routes to the attachment-save commands."
(should (eq (lookup-key cj/email-map (kbd "S"))
#'cj/mu4e-save-all-attachments))
(should (eq (lookup-key cj/email-map (kbd "s"))
#'cj/mu4e-save-attachment-here))
(should (eq (lookup-key cj/email-map (kbd "m"))
#'cj/mu4e-save-some-attachments)))
(provide 'test-mail-config)
;;; test-mail-config.el ends here
|
