diff options
| author | Craig Jennings <c@cjennings.net> | 2026-05-25 07:56:35 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-05-25 07:56:35 -0500 |
| commit | 35d9f8f7e27b4e6a7d99c7f0da9d29dfd6f2acc2 (patch) | |
| tree | 192af068c9cb0b278fe0c56c4a2fa3cb0dc1369a /tests/test-pearl-sync.el | |
| parent | f3b583e67ec18345c2b5c988f452388894363d1e (diff) | |
| download | pearl-35d9f8f7e27b4e6a7d99c7f0da9d29dfd6f2acc2.tar.gz pearl-35d9f8f7e27b4e6a7d99c7f0da9d29dfd6f2acc2.zip | |
refactor: rename issue-body tests to match entry-body-at-point
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" |