diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/seam-test.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/seam-test.el b/lisp/seam-test.el index e7658dd..5d4a562 100644 --- a/lisp/seam-test.el +++ b/lisp/seam-test.el @@ -358,6 +358,20 @@ backlink." (insert-file-contents "html/bar.html") (re-search-forward "<a href=\"/foo.html\">"))))) +(ert-deftest seam-test-backlinks-comment () + "Test that a commented-out link does not add a backlink." + :expected-result :failed + (should-error + (identity + (seam-test-with-notes ((seam-export-template-string "{{backlinks}}")) + ((foo "foo" "public") + (bar "bar" "public")) + (with-current-buffer foo + (seam-test-add-contents foo (concat "# " (seam-test-link-to-buffer bar)))) + (with-temp-buffer + (insert-file-contents "html/bar.html") + (re-search-forward "<a href=\"/foo.html\">")))))) + (ert-deftest seam-test-set-type-private () "Test that setting a public note to private will delete its HTML file and update linking HTML files such that they no longer link to it." |