diff options
Diffstat (limited to 'tests/test-pearl-fields.el')
| -rw-r--r-- | tests/test-pearl-fields.el | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/tests/test-pearl-fields.el b/tests/test-pearl-fields.el index 7322e4f..3722486 100644 --- a/tests/test-pearl-fields.el +++ b/tests/test-pearl-fields.el @@ -105,6 +105,20 @@ (test-pearl--in-org "* Plain heading\nno id\n" (should-error (pearl-set-priority "High") :type 'user-error))) +(ert-deftest test-pearl-set-priority-failure-preserves-cookie () + "A failed priority push attempts the mutation but leaves the cookie unchanged." + (let (pushed) + (test-pearl--in-org "*** TODO [#C] Title\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\n" + (cl-letf (((symbol-function 'pearl--update-issue-async) + (lambda (_id input cb) (setq pushed input) (funcall cb '(:success nil))))) + (re-search-forward "Title") + (pearl-set-priority "High") + ;; the push was attempted with the intended value ... + (should (equal 2 (cdr (assoc "priority" pushed)))) + ;; ... but the local cookie is still #C, not #B. + (goto-char (point-min)) + (should (string-match-p "^\\*\\*\\* TODO \\[#C\\] Title" (thing-at-point 'line t))))))) + ;;; --set-heading-state (ert-deftest test-pearl-set-heading-state-updates-keyword-and-drawer () @@ -149,5 +163,22 @@ (test-pearl--in-org "* Plain heading\nno id\n" (should-error (pearl-set-state "Done") :type 'user-error))) +(ert-deftest test-pearl-set-state-failure-preserves-keyword-and-drawer () + "A failed state push attempts the mutation but leaves the keyword and drawer unchanged." + (let (pushed) + (test-pearl--in-org + "*** TODO [#B] Title\n:PROPERTIES:\n:LINEAR-ID: a\n:LINEAR-TEAM-ID: team-1\n:LINEAR-STATE-ID: s1\n:LINEAR-STATE-NAME: Todo\n:END:\n" + (cl-letf (((symbol-function 'pearl--team-states) + (lambda (_t) '(((id . "s1") (name . "Todo")) + ((id . "s2") (name . "In Progress"))))) + ((symbol-function 'pearl--update-issue-async) + (lambda (_id input cb) (setq pushed input) (funcall cb '(:success nil))))) + (pearl-set-state "In Progress") + (should (string= "s2" (cdr (assoc "stateId" pushed)))) + (goto-char (point-min)) + (should (string-match-p "^\\*\\*\\* TODO " (thing-at-point 'line t))) + (should (string= "Todo" (org-entry-get nil "LINEAR-STATE-NAME"))) + (should (string= "s1" (org-entry-get nil "LINEAR-STATE-ID"))))))) + (provide 'test-pearl-fields) ;;; test-pearl-fields.el ends here |