1 files changed, 89 insertions, 0 deletions
diff --git a/tests/test-org-capture-config-event-content.el b/tests/test-org-capture-config-event-content.el
new file mode 100644
index 00000000..d32b9ef8
--- /dev/null
+++ b/tests/test-org-capture-config-event-content.el
@@ -0,0 +1,89 @@
+;;; test-org-capture-config-event-content.el --- Tests for cj/org-capture-event-content -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for the cj/org-capture-event-content function from org-capture-config.el.
+;;
+;; Returns selected text for event capture, prioritizing:
+;; 1. org-store-link-plist :initial (from browser via org-protocol)
+;; 2. org-capture-plist :initial (from Emacs region)
+;; 3. Empty string (no selection)
+;;
+;; Note: org-capture-plist is defined by org-capture at runtime. We ensure
+;; it's declared before tests so let-binding works in batch mode.
+
+;;; Code:
+
+(require 'ert)
+(require 'org)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'org-capture-config)
+
+;; Ensure org-capture-plist is declared (normally defined by org-capture at runtime)
+(defvar org-capture-plist nil)
+
+;;; Normal Cases
+
+(ert-deftest test-org-capture-config-event-content-normal-browser-selection ()
+  "Browser selection via org-protocol should be returned with leading newline."
+  (let ((org-store-link-plist '(:initial "selected from browser"))
+        (org-capture-plist '(:initial "")))
+    (should (equal (cj/org-capture-event-content)
+                   "\nselected from browser"))))
+
+(ert-deftest test-org-capture-config-event-content-normal-emacs-region ()
+  "Emacs region selection should be returned with leading newline."
+  (let ((org-store-link-plist nil)
+        (org-capture-plist '(:initial "selected in emacs")))
+    (should (equal (cj/org-capture-event-content)
+                   "\nselected in emacs"))))
+
+(ert-deftest test-org-capture-config-event-content-normal-no-selection ()
+  "No selection in either plist should return empty string."
+  (let ((org-store-link-plist nil)
+        (org-capture-plist '(:initial "")))
+    (should (equal (cj/org-capture-event-content) ""))))
+
+(ert-deftest test-org-capture-config-event-content-normal-browser-takes-priority ()
+  "Browser selection should take priority over Emacs region."
+  (let ((org-store-link-plist '(:initial "from browser"))
+        (org-capture-plist '(:initial "from emacs")))
+    (should (equal (cj/org-capture-event-content)
+                   "\nfrom browser"))))
+
+;;; Boundary Cases
+
+(ert-deftest test-org-capture-config-event-content-boundary-store-link-no-initial ()
+  "org-store-link-plist without :initial should fall through to capture plist."
+  (let ((org-store-link-plist '(:url "http://example.com"))
+        (org-capture-plist '(:initial "from emacs")))
+    (should (equal (cj/org-capture-event-content)
+                   "\nfrom emacs"))))
+
+(ert-deftest test-org-capture-config-event-content-boundary-store-link-empty-initial ()
+  "org-store-link-plist with empty :initial should fall through, not produce stray newline."
+  (let ((org-store-link-plist '(:initial ""))
+        (org-capture-plist '(:initial "")))
+    (should (equal (cj/org-capture-event-content) ""))))
+
+(ert-deftest test-org-capture-config-event-content-boundary-capture-plist-nil-initial ()
+  "Nil :initial in capture plist should return empty string."
+  (let ((org-store-link-plist nil)
+        (org-capture-plist '(:initial nil)))
+    (should (equal (cj/org-capture-event-content) ""))))
+
+(ert-deftest test-org-capture-config-event-content-boundary-multiline-selection ()
+  "Multi-line selection should be preserved."
+  (let ((org-store-link-plist nil)
+        (org-capture-plist '(:initial "line one\nline two\nline three")))
+    (should (equal (cj/org-capture-event-content)
+                   "\nline one\nline two\nline three"))))
+
+(ert-deftest test-org-capture-config-event-content-boundary-both-plists-nil ()
+  "Both plists nil should return empty string."
+  (let ((org-store-link-plist nil)
+        (org-capture-plist nil))
+    (should (equal (cj/org-capture-event-content) ""))))
+
+(provide 'test-org-capture-config-event-content)
+;;; test-org-capture-config-event-content.el ends here