blob: e9378b7a5526b2c04bc0e4dfad16a79f92c92512 (
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
;;; test-org-roam-config-format.el --- Tests for cj/--format-roam-node -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for the cj/--format-roam-node function from org-roam-config.el
;;
;; This function formats org-roam node file content with title, node-id, and body content.
;; It creates a complete org-roam file with properties, title, category, and filetags.
;;
;; Example:
;; Input: title: "My Note", node-id: "abc123", content: "* Content\n"
;; Output: Full org-roam file with metadata and content
;;; Code:
(require 'ert)
(require 'testutil-general)
;; Add modules directory to load path
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
;; Now load the actual production module
(require 'org-roam-config)
;;; Test Helpers
(defun test-format (title node-id content)
"Test cj/--format-roam-node with TITLE, NODE-ID, and CONTENT.
Returns the formatted file content."
(cj/--format-roam-node title node-id content))
;;; Normal Cases
(ert-deftest test-format-simple-node ()
"Should format simple node with all components."
(let ((result (test-format "Test Title" "id-123" "* Content\n")))
(should (string-match-p ":PROPERTIES:" result))
(should (string-match-p ":ID: id-123" result))
(should (string-match-p "#\\+TITLE: Test Title" result))
(should (string-match-p "#\\+CATEGORY: Test Title" result))
(should (string-match-p "#\\+FILETAGS: Topic" result))
(should (string-match-p "\\* Content" result))))
(ert-deftest test-format-properties-first ()
"Should place properties at the beginning."
(let ((result (test-format "Title" "id" "content")))
(should (string-prefix-p ":PROPERTIES:\n" result))))
(ert-deftest test-format-id-after-properties ()
"Should place ID in properties block."
(let ((result (test-format "Title" "test-id-456" "content")))
(should (string-match-p ":PROPERTIES:\n:ID: test-id-456\n:END:" result))))
(ert-deftest test-format-title-after-properties ()
"Should place title after properties."
(let ((result (test-format "My Title" "id" "content")))
(should (string-match-p ":END:\n#\\+TITLE: My Title\n" result))))
(ert-deftest test-format-category-matches-title ()
"Should set category to match title."
(let ((result (test-format "Project Name" "id" "content")))
(should (string-match-p "#\\+TITLE: Project Name\n#\\+CATEGORY: Project Name\n" result))))
(ert-deftest test-format-filetags-topic ()
"Should set filetags to Topic."
(let ((result (test-format "Title" "id" "content")))
(should (string-match-p "#\\+FILETAGS: Topic\n" result))))
(ert-deftest test-format-content-at-end ()
"Should place content after metadata."
(let ((result (test-format "Title" "id" "* Heading\nBody text\n")))
(should (string-suffix-p "* Heading\nBody text\n" result))))
;;; Edge Cases - Various Titles
(ert-deftest test-format-title-with-spaces ()
"Should handle title with spaces."
(let ((result (test-format "Multi Word Title" "id" "content")))
(should (string-match-p "#\\+TITLE: Multi Word Title" result))
(should (string-match-p "#\\+CATEGORY: Multi Word Title" result))))
(ert-deftest test-format-title-with-punctuation ()
"Should handle title with punctuation."
(let ((result (test-format "Title: With, Punctuation!" "id" "content")))
(should (string-match-p "#\\+TITLE: Title: With, Punctuation!" result))))
(ert-deftest test-format-title-with-numbers ()
"Should handle title with numbers."
(let ((result (test-format "Version 2.0" "id" "content")))
(should (string-match-p "#\\+TITLE: Version 2\\.0" result))))
;;; Edge Cases - Various Node IDs
(ert-deftest test-format-uuid-style-id ()
"Should handle UUID-style ID."
(let ((result (test-format "Title" "a1b2c3d4-e5f6-7890-abcd-ef1234567890" "content")))
(should (string-match-p ":ID: a1b2c3d4-e5f6-7890-abcd-ef1234567890" result))))
(ert-deftest test-format-short-id ()
"Should handle short ID."
(let ((result (test-format "Title" "1" "content")))
(should (string-match-p ":ID: 1" result))))
(ert-deftest test-format-long-id ()
"Should handle long ID."
(let* ((long-id (make-string 100 ?a))
(result (test-format "Title" long-id "content")))
(should (string-match-p (concat ":ID: " long-id) result))))
;;; Edge Cases - Various Content
(ert-deftest test-format-empty-content ()
"Should handle empty content."
(let ((result (test-format "Title" "id" "")))
(should (string-suffix-p "#+FILETAGS: Topic\n\n" result))))
(ert-deftest test-format-multiline-content ()
"Should handle multiline content."
(let ((result (test-format "Title" "id" "* H1\nText\n** H2\nMore\n")))
(should (string-suffix-p "* H1\nText\n** H2\nMore\n" result))))
(ert-deftest test-format-content-with-properties ()
"Should handle content that already has properties."
(let ((result (test-format "Title" "id" "* Heading\n:PROPERTIES:\n:CUSTOM: value\n:END:\n")))
(should (string-match-p ":CUSTOM: value" result))))
;;; Integration Tests - Structure
(ert-deftest test-format-complete-structure ()
"Should create proper org-roam file structure."
(let ((result (test-format "My Note" "abc-123" "* Content\n")))
;; Check order of components
(should (< (string-match ":PROPERTIES:" result)
(string-match ":ID:" result)))
(should (< (string-match ":ID:" result)
(string-match ":END:" result)))
(should (< (string-match ":END:" result)
(string-match "#\\+TITLE:" result)))
(should (< (string-match "#\\+TITLE:" result)
(string-match "#\\+CATEGORY:" result)))
(should (< (string-match "#\\+CATEGORY:" result)
(string-match "#\\+FILETAGS:" result)))
(should (< (string-match "#\\+FILETAGS:" result)
(string-match "\\* Content" result)))))
(ert-deftest test-format-double-newline-after-metadata ()
"Should have double newline between metadata and content."
(let ((result (test-format "Title" "id" "* Content")))
(should (string-match-p "#\\+FILETAGS: Topic\n\n\\* Content" result))))
(provide 'test-org-roam-config-format)
;;; test-org-roam-config-format.el ends here
|
