1 files changed, 57 insertions, 0 deletions
diff --git a/tests/test-quick-video-capture--init.el b/tests/test-quick-video-capture--init.el
new file mode 100644
index 00000000..ffdb547a
--- /dev/null
+++ b/tests/test-quick-video-capture--init.el
@@ -0,0 +1,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