blob: 98cc8244642279010dce081c5b478b0d40650877 (
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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
;;; test-org-roam-config-demote.el --- Tests for cj/--demote-org-subtree -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for the cj/--demote-org-subtree function from org-roam-config.el
;;
;; This function demotes org subtree content from one level to another.
;; All headings in the tree are adjusted proportionally, with a minimum level of 1.
;;
;; Examples:
;; Input: "*** Heading\n**** Sub", from: 3, to: 1
;; Output: "* Heading\n** Sub"
;;
;; Input: "** Heading\n*** Sub", from: 2, to: 1
;; Output: "* Heading\n** Sub"
;;; 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-demote (content from-level to-level)
"Test cj/--demote-org-subtree on CONTENT.
FROM-LEVEL is the current top level, TO-LEVEL is the desired top level.
Returns the demoted content."
(cj/--demote-org-subtree content from-level to-level))
;;; Normal Cases - Single Heading
(ert-deftest test-demote-level2-to-level1 ()
"Should demote level 2 heading to level 1."
(let ((result (test-demote "** Heading\n" 2 1)))
(should (string= result "* Heading\n"))))
(ert-deftest test-demote-level3-to-level1 ()
"Should demote level 3 heading to level 1."
(let ((result (test-demote "*** Heading\n" 3 1)))
(should (string= result "* Heading\n"))))
(ert-deftest test-demote-level4-to-level1 ()
"Should demote level 4 heading to level 1."
(let ((result (test-demote "**** Heading\n" 4 1)))
(should (string= result "* Heading\n"))))
(ert-deftest test-demote-level3-to-level2 ()
"Should demote level 3 heading to level 2."
(let ((result (test-demote "*** Heading\n" 3 2)))
(should (string= result "** Heading\n"))))
;;; Normal Cases - Multiple Headings at Same Level
(ert-deftest test-demote-multiple-same-level ()
"Should demote multiple headings at same level."
(let ((result (test-demote "** First\n** Second\n** Third\n" 2 1)))
(should (string= result "* First\n* Second\n* Third\n"))))
;;; Normal Cases - Hierarchical Structure
(ert-deftest test-demote-with-subheading ()
"Should demote heading and subheading proportionally."
(let ((result (test-demote "** Heading\n*** Subheading\n" 2 1)))
(should (string= result "* Heading\n** Subheading\n"))))
(ert-deftest test-demote-three-levels ()
"Should demote three-level hierarchy."
(let ((result (test-demote "** Main\n*** Sub\n**** SubSub\n" 2 1)))
(should (string= result "* Main\n** Sub\n*** SubSub\n"))))
(ert-deftest test-demote-complex-hierarchy ()
"Should demote complex hierarchy maintaining relative structure."
(let ((result (test-demote "*** Top\n**** Sub1\n***** Deep\n**** Sub2\n" 3 1)))
(should (string= result "* Top\n** Sub1\n*** Deep\n** Sub2\n"))))
;;; Normal Cases - With Content
(ert-deftest test-demote-heading-with-text ()
"Should demote heading preserving body text."
(let ((result (test-demote "** Heading\nBody text\n" 2 1)))
(should (string= result "* Heading\nBody text\n"))))
(ert-deftest test-demote-with-properties ()
"Should demote heading preserving properties."
(let ((result (test-demote "** Heading\n:PROPERTIES:\n:ID: 123\n:END:\n" 2 1)))
(should (string= result "* Heading\n:PROPERTIES:\n:ID: 123\n:END:\n"))))
(ert-deftest test-demote-with-mixed-content ()
"Should demote headings preserving all content."
(let ((result (test-demote "** H1\nText\n*** H2\nMore text\n" 2 1)))
(should (string= result "* H1\nText\n** H2\nMore text\n"))))
;;; Boundary Cases - No Demotion Needed
(ert-deftest test-demote-same-level ()
"Should return content unchanged when from equals to."
(let ((result (test-demote "* Heading\n" 1 1)))
(should (string= result "* Heading\n"))))
(ert-deftest test-demote-promote-ignored ()
"Should return content unchanged when to > from (promotion)."
(let ((result (test-demote "* Heading\n" 1 2)))
(should (string= result "* Heading\n"))))
;;; Boundary Cases - Minimum Level
(ert-deftest test-demote-respects-minimum-level ()
"Should not demote below level 1."
(let ((result (test-demote "** Main\n*** Sub\n" 2 1)))
(should (string= result "* Main\n** Sub\n"))
;; Sub went from 3 to 2, not below 1
(should (string-match-p "^\\*\\* Sub" result))))
(ert-deftest test-demote-deep-hierarchy-min-level ()
"Should respect minimum level for deep hierarchies."
(let ((result (test-demote "**** L4\n***** L5\n****** L6\n" 4 1)))
(should (string= result "* L4\n** L5\n*** L6\n"))))
;;; Boundary Cases - Empty and Edge Cases
(ert-deftest test-demote-empty-string ()
"Should handle empty string."
(let ((result (test-demote "" 2 1)))
(should (string= result ""))))
(ert-deftest test-demote-no-headings ()
"Should return non-heading content unchanged."
(let ((result (test-demote "Just plain text\nNo headings here\n" 2 1)))
(should (string= result "Just plain text\nNo headings here\n"))))
(ert-deftest test-demote-heading-without-space ()
"Should not match headings without space after stars."
(let ((result (test-demote "**Not a heading\n** Real Heading\n" 2 1)))
(should (string= result "**Not a heading\n* Real Heading\n"))))
;;; Edge Cases - Special Heading Content
(ert-deftest test-demote-heading-with-tags ()
"Should demote heading preserving tags."
(let ((result (test-demote "** Heading :tag1:tag2:\n" 2 1)))
(should (string= result "* Heading :tag1:tag2:\n"))))
(ert-deftest test-demote-heading-with-todo ()
"Should demote heading preserving TODO keyword."
(let ((result (test-demote "** TODO Task\n" 2 1)))
(should (string= result "* TODO Task\n"))))
(ert-deftest test-demote-heading-with-priority ()
"Should demote heading preserving priority."
(let ((result (test-demote "** [#A] Important\n" 2 1)))
(should (string= result "* [#A] Important\n"))))
;;; Edge Cases - Whitespace
(ert-deftest test-demote-preserves-indentation ()
"Should preserve indentation in body text."
(let ((result (test-demote "** Heading\n Indented text\n" 2 1)))
(should (string= result "* Heading\n Indented text\n"))))
(ert-deftest test-demote-multiple-spaces-after-stars ()
"Should handle multiple spaces after stars."
(let ((result (test-demote "** Heading\n" 2 1)))
(should (string= result "* Heading\n"))))
;;; Edge Cases - Large Demotion
(ert-deftest test-demote-large-level-difference ()
"Should handle large level differences."
(let ((result (test-demote "****** Level 6\n******* Level 7\n" 6 1)))
(should (string= result "* Level 6\n** Level 7\n"))))
(ert-deftest test-demote-to-level-2 ()
"Should demote to level 2 when specified."
(let ((result (test-demote "***** Level 5\n****** Level 6\n" 5 2)))
(should (string= result "** Level 5\n*** Level 6\n"))))
(provide 'test-org-roam-config-demote)
;;; test-org-roam-config-demote.el ends here
|
