Added a test files and ammended the Makefile to add a tests target

This commit is contained in:
2025-12-29 19:58:27 +00:00
parent 80101cd34b
commit 6e13e90e7d
5 changed files with 66 additions and 1 deletions

59
tests/macros-tests.el Normal file
View File

@@ -0,0 +1,59 @@
(require 'ert)
(require 'ox-html)
(load-file "~/master-folder/org_files/org_roam/macros.el")
(defun helper/org-export-html (org-content)
"Export ORG-CONTENT string to HTML and return the result."
(with-temp-buffer
(insert org-content)
(org-mode)
(org-export-as 'html nil nil t)))
(ert-deftest test/org-macro-sidenote ()
(let ((html (helper/org-export-html
"Here is a sidenote {{{sidenote(This is a note)}}}."))
(expected "<span class=\"sidenote\">This is a note</span>")
)
(should
(string-match-p expected html))))
(ert-deftest test/org-macro-epigraph-single ()
(let ((html (helper/org-export-html
"{{{epigraph_single(To be is to do.,Socrates)}}}")))
(should
(string-match-p
"<blockquote class=\"epigraph\">"
html))
(should
(string-match-p
"<p>To be is to do\\.</p>"
html))
(should
(string-match-p
"<footer>Socrates</footer>"
html))))
(ert-deftest test/org-macro-epigraph-multiline ()
(let ((html (helper/org-export-html
"{{{epigraph(<p>Line one.</p><p>Line two.</p>)}}}")))
(should
(string-match-p
"<blockquote class=\"epigraph\">"
html))
(should
(string-match-p
"Line one\\."
html))
(should
(string-match-p
"Line two\\."
html))))
(ert-deftest test/org-macro-newthought ()
(let ((html (helper/org-export-html
"{{{newthought(Attention)}}} is important.")))
(should
(string-match-p
"<span class=\"newthought\">Attention</span>"
html))))