diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-pearl-comment-editing.el | 4 | ||||
| -rw-r--r-- | tests/test-pearl-merge.el | 2 | ||||
| -rw-r--r-- | tests/test-pearl-refresh.el | 2 | ||||
| -rw-r--r-- | tests/test-pearl-save.el | 4 | ||||
| -rw-r--r-- | tests/test-pearl-sync.el | 12 |
5 files changed, 12 insertions, 12 deletions
diff --git a/tests/test-pearl-comment-editing.el b/tests/test-pearl-comment-editing.el index be65aa3..ff1dff5 100644 --- a/tests/test-pearl-comment-editing.el +++ b/tests/test-pearl-comment-editing.el @@ -232,7 +232,7 @@ (goto-char (point-min)) (re-search-forward "^\\*\\*\\*\\*\\* Craig") (should (string= stored (org-entry-get nil "LINEAR-COMMENT-SHA256"))) - (should (string= "new body" (pearl--issue-body-at-point))))))) + (should (string= "new body" (pearl--entry-body-at-point))))))) ;;; editability highlighting @@ -282,7 +282,7 @@ "*** Comments\n**** Me — ts\n:PROPERTIES:\n:LINEAR-COMMENT-ID: c1\n:END:\n" "see :note: below\nand more text\n") (re-search-forward "see :note:") - (should (string= "see :note: below\nand more text" (pearl--issue-body-at-point))))) + (should (string= "see :note: below\nand more text" (pearl--entry-body-at-point))))) (provide 'test-pearl-comment-editing) ;;; test-pearl-comment-editing.el ends here diff --git a/tests/test-pearl-merge.el b/tests/test-pearl-merge.el index 180539e..e55127b 100644 --- a/tests/test-pearl-merge.el +++ b/tests/test-pearl-merge.el @@ -193,7 +193,7 @@ subtree, so every description-less issue read as a local edit." (goto-char (point-min)) (re-search-forward "^\\*\\* ") (beginning-of-line) - (should (string= "" (pearl--issue-body-at-point))) + (should (string= "" (pearl--entry-body-at-point))) (should-not (pearl--subtree-dirty-p)))) (ert-deftest test-pearl-subtree-dirty-p-edited-body-is-dirty () diff --git a/tests/test-pearl-refresh.el b/tests/test-pearl-refresh.el index 6b8ba7b..ba17836 100644 --- a/tests/test-pearl-refresh.el +++ b/tests/test-pearl-refresh.el @@ -100,7 +100,7 @@ (should (string-match-p "Refreshed Title" (thing-at-point 'line t))) (should (string= "In Progress" (org-entry-get nil "LINEAR-STATE-NAME"))) ;; body is the remote description, and provenance matches it - (should (string= "New remote desc." (pearl--issue-body-at-point))) + (should (string= "New remote desc." (pearl--entry-body-at-point))) (should (string= (secure-hash 'sha256 "New remote desc.") (org-entry-get nil "LINEAR-DESC-SHA256")))))) diff --git a/tests/test-pearl-save.el b/tests/test-pearl-save.el index 802535b..a8ae6af 100644 --- a/tests/test-pearl-save.el +++ b/tests/test-pearl-save.el @@ -247,9 +247,9 @@ so the next local dirty scan (which uses the Org hash) sees the ticket as clean. (pearl--save-description-field marker (lambda (o) (setq outcome o)))) (should (eq 'pushed (plist-get outcome :status))) (org-with-point-at marker - (should (string= (secure-hash 'sha256 (pearl--issue-body-at-point)) + (should (string= (secure-hash 'sha256 (pearl--entry-body-at-point)) (org-entry-get nil "LINEAR-DESC-ORG-SHA256"))) - (should (string= (secure-hash 'sha256 (pearl--org-to-md (pearl--issue-body-at-point))) + (should (string= (secure-hash 'sha256 (pearl--org-to-md (pearl--entry-body-at-point))) (org-entry-get nil "LINEAR-DESC-SHA256"))) ;; the push timestamp still lands via the after-push bookkeeping (should (string= "t1" (org-entry-get nil "LINEAR-DESC-UPDATED-AT"))))))) diff --git a/tests/test-pearl-sync.el b/tests/test-pearl-sync.el index 738e3ff..150944a 100644 --- a/tests/test-pearl-sync.el +++ b/tests/test-pearl-sync.el @@ -21,7 +21,7 @@ ;; Tests for the explicit description sync-back: the pure conflict gate ;; (`pearl--sync-decision'), the org body extractor -;; (`pearl--issue-body-at-point'), the two network helpers (fetch the +;; (`pearl--entry-body-at-point'), the two network helpers (fetch the ;; remote description, push an updated description -- both stubbed at the HTTP ;; boundary), and the orchestrating command `pearl-sync-current-issue' ;; across its no-op / clean-push / conflict branches. @@ -73,26 +73,26 @@ "*** TODO ENG-1 Title\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\nThe body line.\nSecond line.\n" (re-search-forward "Title") (should (string= "The body line.\nSecond line." - (pearl--issue-body-at-point))))) + (pearl--entry-body-at-point))))) (ert-deftest test-pearl-issue-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--issue-body-at-point))))) + (should (string= "" (pearl--entry-body-at-point))))) (ert-deftest test-pearl-issue-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--issue-body-at-point))))) + (should (string= "Desc body." (pearl--entry-body-at-point))))) (ert-deftest test-pearl-issue-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" (goto-char (point-max)) - (should (string= "Desc body.\nmore." (pearl--issue-body-at-point))))) + (should (string= "Desc body.\nmore." (pearl--entry-body-at-point))))) ;;; network helpers (stubbed at the HTTP boundary) @@ -219,7 +219,7 @@ helper (nil when never called); the update helper reports success." ;; ... but provenance is not advanced and the edit stays for retry. (should (string= stored (org-entry-get nil "LINEAR-DESC-SHA256"))) (should (string= "old" (org-entry-get nil "LINEAR-DESC-UPDATED-AT"))) - (should (string= "Edited body now." (pearl--issue-body-at-point))))))) + (should (string= "Edited body now." (pearl--entry-body-at-point))))))) (provide 'test-pearl-sync) ;;; test-pearl-sync.el ends here |