blob: ffdb547a9ebd5155e0b7a1a8075b7baf49a6ca63 (
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
|
;;; test-quick-video-capture--init.el --- Tests for video-capture lazy init -*- lexical-binding: t; -*-
;;; Commentary:
;; Initialization is split so module load has no startup side effects:
;; `cj/setup-video-download' registers only the org-capture template (lazily,
;; on first capture or first protocol call), while the org-protocol handler is
;; registered separately via `with-eval-after-load'. These tests pin that
;; separation so setup can't drag in org-protocol plumbing on its own.
;;; Code:
(require 'ert)
(require 'cl-lib)
;; Load these for real so `org-capture-templates' and
;; `org-protocol-protocol-alist' are genuine special vars the tests can
;; dynamically rebind (a `let' over a non-special symbol would be lexical
;; and invisible to the module's functions).
(require 'org-capture)
(require 'org-protocol)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'quick-video-capture)
;;; cj/setup-video-download
(ert-deftest test-qvc-setup-registers-capture-template ()
"Normal: setup registers the \"v\" capture template and flips the flag."
(let ((org-capture-templates nil)
(cj/video-download-initialized nil))
(cl-letf (((symbol-function 'cj/log-silently) #'ignore))
(cj/setup-video-download)
(should (assoc "v" org-capture-templates))
(should cj/video-download-initialized))))
(ert-deftest test-qvc-setup-is-idempotent ()
"Boundary: a second setup call does not duplicate the capture template."
(let ((org-capture-templates nil)
(cj/video-download-initialized nil))
(cl-letf (((symbol-function 'cj/log-silently) #'ignore))
(cj/setup-video-download)
(cj/setup-video-download)
(should (= 1 (length (seq-filter (lambda (e) (equal (car e) "v"))
org-capture-templates)))))))
(ert-deftest test-qvc-setup-does-not-register-protocol ()
"Boundary: setup touches only capture state, not the org-protocol alist.
Protocol registration is the job of the `with-eval-after-load' block, so
setup must not add to `org-protocol-protocol-alist' on its own."
(let ((org-capture-templates nil)
(org-protocol-protocol-alist nil)
(cj/video-download-initialized nil))
(cl-letf (((symbol-function 'cj/log-silently) #'ignore))
(cj/setup-video-download)
(should-not (assoc "video-download" org-protocol-protocol-alist)))))
(provide 'test-quick-video-capture--init)
;;; test-quick-video-capture--init.el ends here
|
