blob: d32b9ef863c33c687ebeb5e01c18d5a0a9463fbf (
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
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
|
