diff options
Diffstat (limited to 'tests/test-pearl-sync.el')
| -rw-r--r-- | tests/test-pearl-sync.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/test-pearl-sync.el b/tests/test-pearl-sync.el index 150944a..0887363 100644 --- a/tests/test-pearl-sync.el +++ b/tests/test-pearl-sync.el @@ -65,9 +65,9 @@ (should (eq :noop (pearl--sync-decision "same new text" (secure-hash 'sha256 "baseline") "same new text")))) -;;; --issue-body-at-point (org body extractor) +;;; --entry-body-at-point (org body extractor) -(ert-deftest test-pearl-issue-body-after-drawer () +(ert-deftest test-pearl-entry-body-after-drawer () "The body is the text after the drawer, trimmed." (test-pearl--in-org "*** TODO ENG-1 Title\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\nThe body line.\nSecond line.\n" @@ -75,19 +75,19 @@ (should (string= "The body line.\nSecond line." (pearl--entry-body-at-point))))) -(ert-deftest test-pearl-issue-body-empty () +(ert-deftest test-pearl-entry-body-empty () "An entry with no body yields the empty string." (test-pearl--in-org "*** TODO ENG-1 Title\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\n" (should (string= "" (pearl--entry-body-at-point))))) -(ert-deftest test-pearl-issue-body-stops-before-comments () +(ert-deftest test-pearl-entry-body-stops-before-comments () "The description body stops before a child Comments subtree." (test-pearl--in-org "*** TODO ENG-1 Title\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\nDesc body.\n**** Comments\n***** bob -- ts\nhi\n" (should (string= "Desc body." (pearl--entry-body-at-point))))) -(ert-deftest test-pearl-issue-body-from-inside-body () +(ert-deftest test-pearl-entry-body-from-inside-body () "Extraction works with point already inside the body." (test-pearl--in-org "*** TODO ENG-1 Title\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\nDesc body.\nmore.\n" |