github/org-roam-export-backlinks
1
0
Fork 0
mirror of https://github.com/correl/org-roam-export-backlinks.git synced 2024-11-22 03:00:12 +00:00
Code Issues Projects Releases Packages Wiki Activity

Clean up tests with a fixture macro

Browse source
This commit is contained in:
Correl Roush 2022-06-12 18:01:39 -04:00
parent 8ad5456526
commit 841202288a
1 changed files with 28 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
tests.el
View file

@ -36,9 +36,8 @@
(should (equal '("id:d12a1ce4-3199-42f4-b39b-b68c03458669")
(mapcar #'org-roam-export-backlink-link (org-roam-backlinks-get (org-roam-node-from-id "e6c17c1a-6b05-40d2-a01f-b147633c51b1") :unique t)))))
(ert-deftest excerpt-tests ()
(with-temp-buffer
(defmacro with-test-document (&rest body)
`(with-temp-buffer
(org-mode)
(insert ":PROPERTIES:
:ID: e44c8b00-f90d-4fcc-b8a1-742b659ff252
@ -60,14 +59,25 @@ Opening paragraph.
Heading two paragraph.
")
;; Elements
,@body))
(ert-deftest excerpt-opening-paragraph-test ()
(with-test-document
(goto-line 6)
(should (equal "Opening paragraph.\n" (org-roam-export--excerpt)))
(should (equal "Opening paragraph.\n" (org-roam-export--excerpt)))))
(ert-deftest excerpt-heading-paragraph-test ()
(with-test-document
(goto-line 10)
(should (equal " Heading one paragraph.\n" (org-roam-export--excerpt)))
(should (equal " Heading one paragraph.\n" (org-roam-export--excerpt)))))
(ert-deftest excerpt-list-test ()
(with-test-document
(goto-line 14)
(should (equal " - List item 1\n - List item 2\n" (org-roam-export--excerpt)))
;; Headings
(should (equal " - List item 1\n - List item 2\n" (org-roam-export--excerpt)))))
(ert-deftest excerpt-heading-with-subheadings-test ()
(with-test-document
(goto-line 8)
(should (equal " Heading one paragraph.
@ -75,7 +85,10 @@ Opening paragraph.
- List item 1
- List item 2
" (org-roam-export--excerpt)))
" (org-roam-export--excerpt)))))
(ert-deftest excerpt-simple-heading-test ()
(with-test-document
(goto-line 17)
(should (equal " Heading two paragraph.\n" (org-roam-export--excerpt)))))