From 35d9f8f7e27b4e6a7d99c7f0da9d29dfd6f2acc2 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Mon, 25 May 2026 07:56:35 -0500 Subject: refactor: rename issue-body tests to match entry-body-at-point --- tests/test-pearl-sync.el | 10 +++++----- 1 file 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" -- cgit v1.2.3