1 ;;; test-org-footnote.el --- Tests for org-footnote.el
3 ;; Copyright (C) 2012-2015 Nicolas Goaziou
5 ;; Author: Nicolas Goaziou <n.goaziou at gmail dot com>
7 ;; This program is free software; you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation, either version 3 of the License, or
10 ;; (at your option) any later version.
12 ;; This program is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
22 (ert-deftest test-org-footnote
/new
()
23 "Test `org-footnote-new' specifications."
24 ;; `org-footnote-auto-label' is t.
27 "Test\\[fn:1\\]\n+\\[fn:1\\]"
28 (org-test-with-temp-text "Test<point>"
29 (let ((org-footnote-auto-label t
)
30 (org-footnote-section nil
))
33 ;; `org-footnote-auto-label' is `plain'.
36 "Test\\[1\\]\n+\\[1\\]"
37 (org-test-with-temp-text "Test<point>"
38 (let ((org-footnote-auto-label 'plain
)
39 (org-footnote-section nil
))
42 ;; `org-footnote-auto-label' is `random'.
45 "Test\\[fn:\\(.+?\\)\\]\n+\\[fn:\\1\\]"
46 (org-test-with-temp-text "Test<point>"
47 (let ((org-footnote-auto-label 'random
)
48 (org-footnote-section nil
))
51 ;; Error at beginning of line.
53 (org-test-with-temp-text "<point>Test"
57 (org-test-with-temp-text "#+TIT<point>LE: value"
60 (org-test-with-temp-text "#+CAPTION: <point>\nParagraph"
62 ;; Allow new footnotes in blank lines at the beginning of the
67 (org-test-with-temp-text " <point>"
68 (let ((org-footnote-auto-label t
)) (org-footnote-new))
70 ;; In an headline or inlinetask, point must be either on the
71 ;; heading itself or on the blank lines below.
72 (should (org-test-with-temp-text "* H<point>" (org-footnote-new) t
))
74 (org-test-with-temp-text "* H\n <point>\nParagraph" (org-footnote-new) t
))
75 (should-error (org-test-with-temp-text "*<point> H" (org-footnote-new) t
))
77 (org-test-with-temp-text "* H <point>:tag:" (org-footnote-new) t
))
78 ;; Allow new footnotes within recursive objects, but not in links.
81 " \\*bold\\[fn:1\\]\\*"
82 (org-test-with-temp-text " *bold<point>*"
83 (let ((org-footnote-auto-label t
)) (org-footnote-new))
86 (org-test-with-temp-text " [[http://orgmode.org][Org mode<point>]]"
88 ;; Allow new footnotes in blank lines after an element or white
89 ;; spaces after an object.
93 (org-test-with-temp-text "#+BEGIN_EXAMPLE\nA\n#+END_EXAMPLE\n <point>"
94 (let ((org-footnote-auto-label t
)) (org-footnote-new))
98 " \\*bold\\*\\[fn:1\\]"
99 (org-test-with-temp-text " *bold*<point>"
100 (let ((org-footnote-auto-label t
)) (org-footnote-new))
103 (ert-deftest test-org-footnote
/delete
()
104 "Test `org-footnote-delete' specifications."
108 (org-test-with-temp-text "Paragraph[1]\n\n[1] Definition"
110 (org-footnote-delete)
111 (org-trim (buffer-string)))))
112 ;; Remove multiple definitions and references.
114 (equal "Paragraph and another"
115 (org-test-with-temp-text
116 "Paragraph[1] and another[1]\n\n[1] def\n\n[1] def"
118 (org-footnote-delete)
119 (org-trim (buffer-string)))))
120 ;; Delete inline footnotes and all references.
123 (org-test-with-temp-text "Para[fn:label:def] and[fn:label]"
125 (org-footnote-delete)
126 (org-trim (buffer-string)))))
127 ;; Delete anonymous footnotes.
130 (org-test-with-temp-text "Para[fn::def]"
132 (org-footnote-delete)
133 (org-trim (buffer-string)))))
134 ;; With an argument, delete footnote with specified label.
136 (equal "Paragraph[1] and another\n\n[1] def"
137 (let ((org-footnote-section nil
))
138 (org-test-with-temp-text
139 "Paragraph[1] and another[2]\n\n[1] def\n\n[2] def2"
140 (org-footnote-delete "2")
141 (org-trim (buffer-string))))))
142 ;; Error when no argument is specified at point is not at a footnote
145 (org-test-with-temp-text "Para[1]\n\n[1] Def"
146 (org-footnote-delete)))
147 ;; Correctly delete footnotes with multiple paragraphs.
149 (equal "Para\n\n\nOutside footnote."
150 (org-test-with-temp-text
151 "Para[1]\n\n[1] para1\n\npara2\n\n\nOutside footnote."
152 (org-footnote-delete "1")
153 (org-trim (buffer-string))))))
155 (ert-deftest test-org-footnote
/normalize-in-org
()
156 "Test specifications for `org-footnote-normalize' in an Org buffer."
157 ;; 1. With a non-nil `org-footnote-section'.
158 (let ((org-footnote-section "Footnotes")
159 (org-blank-before-new-entry '((heading . auto
))))
160 ;; 1.1. Normalize each type of footnote: standard, labelled,
161 ;; numbered, inline, anonymous.
162 (org-test-with-temp-text
163 "Paragraph[fn:1][fn:label][1][fn:inline:Inline][fn::Anonymous]
172 (org-footnote-normalize)
174 (equal (buffer-string)
175 "Paragraph[1][2][3][4][5]
191 ;; 1.2. When no footnote section is present, create it. Follow
192 ;; `org-blank-before-new-entry' specifications when doing so.
193 (org-test-with-temp-text "Paragraph[fn:1]\n\n[fn:1] Definition"
194 (org-footnote-normalize)
195 (should (equal (buffer-string)
196 "Paragraph[1]\n\n* Footnotes\n\n[1] Definition")))
197 (org-test-with-temp-text "Paragraph[fn:1]\n* Head1\n[fn:1] Definition"
198 (let ((org-blank-before-new-entry '((heading))))
199 (org-footnote-normalize))
200 (should (equal (buffer-string)
201 "Paragraph[1]\n* Head1\n* Footnotes\n\n[1] Definition")))
202 ;; 1.3. When the footnote section is misplaced, move it at the end
204 (org-test-with-temp-text "* Head1
209 (org-footnote-normalize)
211 (equal (buffer-string)
218 \[1] Definition 1"))))
219 ;; 2. With a nil `org-footnote-section'.
220 (let ((org-footnote-section nil
))
221 ;; 2.1. Normalize each type of footnote: standard, labelled,
222 ;; numbered, inline, anonymous.
223 (org-test-with-temp-text
224 "Paragraph[fn:1][fn:label][1][fn:inline:Inline][fn::Anonymous]
231 (org-footnote-normalize)
233 (equal (buffer-string)
234 "Paragraph[1][2][3][4][5]
246 ;; 2.2. Put each footnote definition at the end of the section
247 ;; containing its first reference.
248 (org-test-with-temp-text
255 (org-footnote-normalize)
257 (equal (buffer-string)
270 (ert-deftest test-org-footnote
/normalize-outside-org
()
271 "Test `org-footnote-normalize' specifications for buffers not in Org mode."
272 ;; 1. In a non-Org buffer, footnotes definitions are always put at
276 "Paragraph[1][2][3][4][5]
279 Some additional text.
290 (let ((org-footnote-tag-for-non-org-mode-files nil
))
292 (insert "Paragraph[fn:1][fn:label][1][fn:inline:Inline][fn::Anonymous]
301 Some additional text.")
302 (org-footnote-normalize)
304 ;; 2. With a special tag.
305 (let ((org-footnote-tag-for-non-org-mode-files "Footnotes:"))
306 ;; 2.1. The tag must be inserted before the footnotes, separated
307 ;; from the rest of the text with a blank line.
309 (insert "Paragraph[fn:1][fn::Anonymous]
314 Some additional text.")
315 (org-footnote-normalize)
317 (equal (buffer-string)
321 Some additional text.
328 ;; 2.2. Any tag already inserted in the buffer should be removed
329 ;; prior to footnotes insertion.
339 (org-footnote-normalize)
341 (equal (buffer-string)
349 ;; 3. As an exception, in `message-mode' buffer, if a signature is
350 ;; present, insert footnotes before it.n
351 (let ((org-footnote-tag-for-non-org-mode-files nil
))
353 (insert "Body[fn::def]
358 ;; Mimic `message-mode'.
359 (let ((major-mode 'message-mode
)
360 (message-cite-prefix-regexp "\\([ ]*[_.[:word:]]+>+\\|[ ]*[]>|]\\)+")
361 (message-signature-separator "^-- $"))
362 (flet ((message-point-in-header-p nil nil
))
363 (org-footnote-normalize)))
365 (equal (buffer-string)
375 (ert-deftest test-org-footnote
/sort
()
376 "Test footnotes definitions sorting."
377 (let ((org-footnote-section nil
))
378 (org-test-with-temp-text
379 "Text[fn:1][fn::inline][fn:2][fn:label]
386 (org-footnote-normalize 'sort
)
388 (equal (buffer-string)
389 "Text[fn:1][fn::inline][fn:2][fn:label]
399 (provide 'test-org-footnote
)
400 ;;; test-org-footnote.el ends here