blob: a3a9c019851ecc6c7d33957297069542e46448d7 (
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
|
;;; test-calendar-sync--deferred-start.el --- Deferred auto-start tests -*- lexical-binding: t; -*-
;;; Commentary:
;; calendar-sync arms its auto-sync on the first org-agenda use instead of at
;; load, so a cold gpg-agent is not prompted for the authinfo passphrase at
;; startup (the :secret-host feed URLs decrypt authinfo.gpg). These tests cover
;; the one-shot helper: it starts sync once and removes itself, even when the
;; start call errors.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'calendar-sync)
;; org-agenda need not be loaded under `make test'; declare the hook special so
;; the dynamic `let' bindings below shadow it cleanly.
(defvar org-agenda-mode-hook)
(ert-deftest test-calendar-sync-deferred-start-fires-once-and-unhooks ()
"Normal: the one-shot starts sync once and removes itself from the hook."
(let ((started 0)
(org-agenda-mode-hook (list #'calendar-sync--auto-start-on-first-agenda)))
(cl-letf (((symbol-function 'calendar-sync-start)
(lambda (&rest _) (setq started (1+ started)))))
(calendar-sync--auto-start-on-first-agenda))
(should (= started 1))
(should-not (member #'calendar-sync--auto-start-on-first-agenda
org-agenda-mode-hook))))
(ert-deftest test-calendar-sync-deferred-start-unhooks-even-when-start-errors ()
"Error: a start failure still leaves the hook removed, so it cannot re-fire."
(let ((org-agenda-mode-hook (list #'calendar-sync--auto-start-on-first-agenda)))
(cl-letf (((symbol-function 'calendar-sync-start)
(lambda (&rest _) (error "boom"))))
(should-error (calendar-sync--auto-start-on-first-agenda)))
(should-not (member #'calendar-sync--auto-start-on-first-agenda
org-agenda-mode-hook))))
(provide 'test-calendar-sync--deferred-start)
;;; test-calendar-sync--deferred-start.el ends here
|
