Fix draft note titles showing up in backlinks

1 files changed, 15 insertions, 0 deletions

diff --git a/lisp/seam-test.el b/lisp/seam-test.el
index 0abad2b..fc4e2d4 100644
--- a/lisp/seam-test.el
+++ b/lisp/seam-test.el
@@ -366,6 +366,21 @@ backlink."
         (insert-file-contents "html/bar.html")
         (buffer-string))))))
 
+(ert-deftest seam-test-backlinks-draft ()
+  "Test that linking to a note from a draft note does not create a
+backlink."
+  (should
+   (equal
+    ""
+    (seam-test-with-notes ((seam-export-template-string "{{backlinks}}"))
+        ((foo "foo" "public" nil t)
+         (bar "bar" "public"))
+      (with-current-buffer foo
+        (seam-test-add-contents foo (seam-test-link-to-buffer bar)))
+      (with-temp-buffer
+        (insert-file-contents "html/bar.html")
+        (buffer-string))))))
+
 (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."