From c5ff668aa2666e70ce423cf382b9871ed069a527 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Mon, 25 May 2026 19:39:11 -0500 Subject: feat(save): write synced baselines for structured fields MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Save-model v2 reconciles a field by diffing its live value against a baseline last synced from Linear, but the structured fields (priority, state, assignee, labels) only stored their current value — there was nothing to diff against. The renderer now writes a synced baseline beside each: LINEAR-PRIORITY (the numeric priority), LINEAR-STATE-ID-SYNCED, LINEAR-ASSIGNEE-ID-SYNCED, and LINEAR-LABEL-IDS / LINEAR-LABEL-IDS-SYNCED (the live and baseline id sets, with LINEAR-LABELS staying display-only names). At fetch, live equals baseline, so nothing reads dirty on a fresh issue. The merge refresh re-renders changed subtrees through the same renderer, so baselines advance there too, and a retained dirty subtree is left untouched. --- tests/test-pearl-format.el | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'tests') diff --git a/tests/test-pearl-format.el b/tests/test-pearl-format.el index 1e9fa53..a642b53 100644 --- a/tests/test-pearl-format.el +++ b/tests/test-pearl-format.el @@ -68,6 +68,31 @@ (should (string-match-p "^:LINEAR-TITLE-SHA256: +[0-9a-f]\\{64\\}$" out)) (should (string-match-p "^:END:$" out))))) +;;; synced baselines for structured fields (save-model v2) + +(ert-deftest test-pearl-format-issue-writes-synced-baselines () + "The renderer writes a synced baseline per structured field, equal to its live value at fetch." + (test-pearl--with-default-mapping + (let ((out (pearl--format-issue-as-org-entry (test-pearl--norm-full)))) + ;; priority: numeric baseline beside the cookie + (should (string-match-p "^:LINEAR-PRIORITY: +2$" out)) + ;; state: live id and synced baseline both present and equal + (should (string-match-p "^:LINEAR-STATE-ID: +state-1$" out)) + (should (string-match-p "^:LINEAR-STATE-ID-SYNCED: +state-1$" out)) + ;; assignee: live id and synced baseline equal + (should (string-match-p "^:LINEAR-ASSIGNEE-ID: +user-1$" out)) + (should (string-match-p "^:LINEAR-ASSIGNEE-ID-SYNCED: +user-1$" out)) + ;; labels: live id set and synced baseline equal, in fetched order + (should (string-match-p "^:LINEAR-LABEL-IDS: +lbl-1 lbl-2$" out)) + (should (string-match-p "^:LINEAR-LABEL-IDS-SYNCED: +lbl-1 lbl-2$" out))))) + +(ert-deftest test-pearl-format-issue-bare-empty-baselines () + "Null/missing structured fields render empty id baselines without error." + (test-pearl--with-default-mapping + (let ((out (pearl--format-issue-as-org-entry (test-pearl--norm-bare)))) + (should (string-match-p "^:LINEAR-LABEL-IDS: +$" out)) + (should (string-match-p "^:LINEAR-LABEL-IDS-SYNCED: +$" out))))) + (ert-deftest test-pearl-format-issue-description-in-body-not-property () "The description renders as body text, not a :DESCRIPTION: property." (test-pearl--with-default-mapping -- cgit v1.2.3