diff options
| -rw-r--r-- | seam-test.el | 12 | ||||
| -rw-r--r-- | seam.el | 1 |
2 files changed, 13 insertions, 0 deletions
diff --git a/seam-test.el b/seam-test.el index b192045..0b7df1c 100644 --- a/seam-test.el +++ b/seam-test.el @@ -131,6 +131,18 @@ (buffer-name note) (seam-get-title-from-buffer note))))) +(ert-deftest seam-test-get-title-from-buffer-narrowed () + (should + (equal + "foo" + (seam-test-with-notes () + ((foo "foo")) + (with-current-buffer foo + (seam-test-add-contents foo "* My headline") + (forward-line) + (org-narrow-to-subtree) + (seam-get-title-from-buffer)))))) + (ert-deftest seam-test-get-title-from-file () (seam-test-with-notes () ((note "Note")) (should @@ -151,6 +151,7 @@ naming. Must be a function taking two arguments: TITLE and TYPE." (with-current-buffer buffer (save-mark-and-excursion (save-restriction + (widen) (goto-char 1) (ignore-errors (re-search-forward (org-headline-re 1)) |