diff options
| author | Craig Jennings <c@cjennings.net> | 2026-05-24 15:01:01 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-05-24 15:01:01 -0500 |
| commit | 1a26149d4d7f16adb1552ba31a2de290a5c86fc4 (patch) | |
| tree | b61b23fd96ee757e6cc04020532c0717d20b102f /tests/test-pearl-sync.el | |
| parent | 44b7e8e42383a0e2c7024f250c2d16de6b66c652 (diff) | |
| download | pearl-1a26149d4d7f16adb1552ba31a2de290a5c86fc4.tar.gz pearl-1a26149d4d7f16adb1552ba31a2de290a5c86fc4.zip | |
test: cover sync-back push-failure branches at the command level
Added ERT tests that the three sync commands leave provenance untouched when the push fails (:success nil): pearl-sync-current-issue keeps LINEAR-DESC-SHA256 and -UPDATED-AT, pearl-sync-current-issue-title keeps LINEAR-TITLE-SHA256, and pearl-edit-current-comment keeps LINEAR-COMMENT-SHA256 — and in each case the edited text stays in the buffer for retry. Each test asserts the push was attempted with the rendered text. The commands already behave correctly; this locks it. 360 tests green.
Diffstat (limited to 'tests/test-pearl-sync.el')
| -rw-r--r-- | tests/test-pearl-sync.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/test-pearl-sync.el b/tests/test-pearl-sync.el index 6127914..738e3ff 100644 --- a/tests/test-pearl-sync.el +++ b/tests/test-pearl-sync.el @@ -202,5 +202,24 @@ helper (nil when never called); the update helper reports success." "* Just a plain heading\nno linear id here\n" (should-error (pearl-sync-current-issue) :type 'user-error))) +(ert-deftest test-pearl-sync-current-issue-push-failure-keeps-provenance () + "A failed description push keeps the hash, timestamp, and edited body for retry." + (let ((updates nil) + (stored (secure-hash 'sha256 "baseline remote"))) + (test-pearl--in-org + (format "*** TODO ENG-1 Title\n:PROPERTIES:\n:LINEAR-ID: a\n:LINEAR-DESC-SHA256: %s\n:LINEAR-DESC-UPDATED-AT: old\n:END:\nEdited body now.\n" + stored) + (cl-letf (((symbol-function 'pearl--fetch-issue-description-async) + (lambda (_id cb) (funcall cb '(:description "baseline remote" :updated-at "t0")))) + ((symbol-function 'pearl--update-issue-description-async) + (lambda (_id md cb) (push md updates) (funcall cb '(:success nil))))) + (pearl-sync-current-issue) + ;; the push was attempted with the rendered body ... + (should (equal (list (pearl--org-to-md "Edited body now.")) updates)) + ;; ... 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))))))) + (provide 'test-pearl-sync) ;;; test-pearl-sync.el ends here |