160 lines
5.3 KiB
EmacsLisp
160 lines
5.3 KiB
EmacsLisp
;;; tests.el --- Description -*- lexical-binding: t; -*-
|
|
;;
|
|
;; Copyright (C) 2022 Correl Roush
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; Commentary:
|
|
;;
|
|
;; Description
|
|
;;
|
|
;;; Code:
|
|
|
|
(require 'ert)
|
|
(require 'org-roam)
|
|
(require 'org-roam-export-backlinks)
|
|
|
|
(setq org-roam-directory (expand-file-name "./test-slipbox")
|
|
org-roam-db-location (expand-file-name "./test-slipbox/org-roam.db"))
|
|
(org-roam-update-org-id-locations)
|
|
(org-roam-db-sync)
|
|
|
|
|
|
(ert-deftest lorem-backlink-titles ()
|
|
(should (equal '("Ipsum > II")
|
|
(mapcar #'org-roam-export-backlinks-title (org-roam-backlinks-get (org-roam-node-from-id "d12a1ce4-3199-42f4-b39b-b68c03458669") :unique t)))))
|
|
|
|
(ert-deftest ipsum-backlink-titles ()
|
|
(should (equal '("Lorem")
|
|
(mapcar #'org-roam-export-backlinks-title (org-roam-backlinks-get (org-roam-node-from-id "e6c17c1a-6b05-40d2-a01f-b147633c51b1") :unique t)))))
|
|
|
|
(ert-deftest lorem-backlink-link ()
|
|
(should (equal '("id:e6c17c1a-6b05-40d2-a01f-b147633c51b1")
|
|
(mapcar #'org-roam-export-backlinks-link (org-roam-backlinks-get (org-roam-node-from-id "d12a1ce4-3199-42f4-b39b-b68c03458669") :unique t)))))
|
|
|
|
(ert-deftest ipsum-backlink-link ()
|
|
(should (equal '("id:d12a1ce4-3199-42f4-b39b-b68c03458669")
|
|
(mapcar #'org-roam-export-backlinks-link (org-roam-backlinks-get (org-roam-node-from-id "e6c17c1a-6b05-40d2-a01f-b147633c51b1") :unique t)))))
|
|
|
|
(defmacro with-test-document (&rest body)
|
|
`(with-temp-buffer
|
|
(org-mode)
|
|
(insert ":PROPERTIES:
|
|
:ID: e44c8b00-f90d-4fcc-b8a1-742b659ff252
|
|
:END
|
|
#+TITLE: Test Document
|
|
|
|
Opening paragraph.
|
|
|
|
* Heading One
|
|
|
|
Heading one paragraph.
|
|
|
|
** Subheading One A
|
|
|
|
- List item 1
|
|
- List item 2
|
|
|
|
* Heading Two
|
|
|
|
Heading two paragraph.
|
|
")
|
|
,@body))
|
|
|
|
(ert-deftest excerpt-opening-paragraph-test ()
|
|
(with-test-document
|
|
(goto-line 6)
|
|
(should (equal "Opening paragraph.\n" (org-roam-export-backlinks--excerpt)))))
|
|
|
|
(ert-deftest excerpt-heading-paragraph-test ()
|
|
(with-test-document
|
|
(goto-line 10)
|
|
(should (equal " Heading one paragraph.\n" (org-roam-export-backlinks--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-backlinks--excerpt)))))
|
|
|
|
(ert-deftest excerpt-heading-with-subheadings-test ()
|
|
(with-test-document
|
|
(goto-line 8)
|
|
(should (equal "* Heading One
|
|
|
|
Heading one paragraph.
|
|
|
|
** Subheading One A
|
|
|
|
- List item 1
|
|
- List item 2
|
|
|
|
" (org-roam-export-backlinks--excerpt)))))
|
|
|
|
(ert-deftest excerpt-simple-heading-test ()
|
|
(with-test-document
|
|
(goto-line 17)
|
|
(should (equal "* Heading Two\n\n Heading two paragraph.\n" (org-roam-export-backlinks--excerpt)))))
|
|
|
|
(ert-deftest lorem-backlink-excerpt ()
|
|
(should (equal '("Aliquam [[id:d12a1ce4-3199-42f4-b39b-b68c03458669][lorem]] ante, suscipit a lorem molestie, aliquet elementum eros. Proin
|
|
mattis lacus nec dapibus auctor. Donec lacinia finibus ex vitae tempor.
|
|
Suspendisse blandit, justo vitae placerat lacinia, eros tortor convallis nisi,
|
|
fermentum sodales lorem augue at ligula. Nulla facilisi. Curabitur vel convallis
|
|
tellus, a luctus mi. Donec sollicitudin erat erat, vel condimentum mauris tempus
|
|
eget. Pellentesque hendrerit suscipit risus eu fermentum. Vivamus non urna
|
|
commodo, lacinia odio vitae, blandit metus. Nam et tempus ipsum. Aenean lobortis
|
|
mauris sit amet lorem accumsan blandit. Fusce eleifend, tellus non tristique
|
|
auctor, ligula justo varius dolor, id bibendum nulla elit ac dui. Vestibulum
|
|
sodales enim eget tristique tempor.\n")
|
|
(mapcar #'org-roam-export-backlinks-excerpt (org-roam-backlinks-get (org-roam-node-from-id "d12a1ce4-3199-42f4-b39b-b68c03458669") :unique t)))))
|
|
|
|
(ert-deftest ipsum-backlink-excerpt ()
|
|
(should (equal '("Lorem [[id:e6c17c1a-6b05-40d2-a01f-b147633c51b1][ipsum]] dolor sit amet, consectetur adipiscing elit. Mauris eget viverra mi.
|
|
Duis eget dui id tellus fermentum vehicula. Duis tincidunt quam vel erat
|
|
bibendum commodo. Phasellus in justo vitae magna commodo rhoncus id quis justo.
|
|
Morbi id malesuada nisi. Praesent ipsum velit, commodo vel bibendum vitae,
|
|
dignissim in magna. Pellentesque vehicula enim ante, interdum laoreet dolor
|
|
venenatis eget. Proin laoreet nulla a enim bibendum finibus. Proin mattis
|
|
lobortis quam non eleifend. Pellentesque vitae imperdiet nisl.\n")
|
|
(mapcar #'org-roam-export-backlinks-excerpt (org-roam-backlinks-get (org-roam-node-from-id "e6c17c1a-6b05-40d2-a01f-b147633c51b1") :unique t)))))
|
|
|
|
(ert-deftest format-backlink-test ()
|
|
(should (equal "** [[id:34cf17c6-f804-4adb-b386-3c6dfb83cfad][Heading > Subheading]]
|
|
|
|
Paragraph text.
|
|
"
|
|
(org-roam-export-backlinks--format
|
|
"id:34cf17c6-f804-4adb-b386-3c6dfb83cfad"
|
|
"Heading > Subheading"
|
|
"Paragraph text.\n"))))
|
|
|
|
(ert-deftest format-backlink-with-subheadings ()
|
|
(should (equal "** [[id:9428184d-5030-4e5b-91f6-b865d5cc311b][Heading]]
|
|
|
|
*** Subheading One
|
|
|
|
Paragraph text.
|
|
|
|
**** Subheading Two
|
|
|
|
***** Subheading Two A
|
|
|
|
Paragraph text.
|
|
"
|
|
(org-roam-export-backlinks--format
|
|
"id:9428184d-5030-4e5b-91f6-b865d5cc311b"
|
|
"Heading"
|
|
"** Subheading One
|
|
|
|
Paragraph text.
|
|
|
|
*** Subheading Two
|
|
|
|
**** Subheading Two A
|
|
|
|
Paragraph text.
|
|
"))))
|
|
|
|
(provide 'tests)
|
|
;;; tests.el ends here
|