diff options
| -rw-r--r-- | pearl.el | 6 | ||||
| -rw-r--r-- | tests/test-pearl-grouping.el | 27 |
2 files changed, 30 insertions, 3 deletions
@@ -4250,7 +4250,7 @@ no side effects." (let* ((src (or source '(:type filter :name "Linear issues" :filter nil))) (name (pearl--source-name src)) (filter (plist-get src :filter)) - (grouping (plist-get src :group)) + (grouping (pearl--effective-grouping src)) (groups (pearl--group-issues issues grouping))) (with-temp-buffer ;; The view name renders verbatim, matching Linear's own capitalization; @@ -4390,7 +4390,7 @@ just writing the file and leaving it off-screen." (?m ; merge by LINEAR-ID, keeping edits (with-current-buffer existing-buf (let ((counts (pearl--merge-issues-into-buffer - issues (plist-get source :group)))) + issues (pearl--effective-grouping source)))) (pearl--update-source-header (length issues) truncated) (pearl--update-derived-todo-header (pearl--gather-header-states issues)) (pearl-highlight-comments) @@ -6822,7 +6822,7 @@ of the replace path." (cdr eff))) (truncated (pearl--query-result-truncated-p result)) (counts (pearl--merge-issues-into-buffer - issues (plist-get source :group)))) + issues (pearl--effective-grouping source)))) (pearl--update-source-header (length issues) truncated) (pearl--update-derived-todo-header (pearl--gather-header-states issues)) (pearl-highlight-comments) diff --git a/tests/test-pearl-grouping.el b/tests/test-pearl-grouping.el index 13a84d5..a30bcc1 100644 --- a/tests/test-pearl-grouping.el +++ b/tests/test-pearl-grouping.el @@ -327,5 +327,32 @@ SE-1 has a comment subtree; SE-2 has no assignee.") 'no-issues))) (should-not (plist-get (pearl--read-active-source) :client-group)))) +;;; render integration — consumers read pearl--effective-grouping (phase 4) + +(defconst test-pearl-grouping--issues + (list (list :id "i1" :identifier "SE-1" :title "Alpha" + :state '(:name "In Progress") :project '(:name "Apollo") :priority 2) + (list :id "i2" :identifier "SE-2" :title "Beta" + :state '(:name "Todo") :project '(:name "Apollo") :priority 1)) + "Two normalized issues with distinct states, one shared project.") + +(ert-deftest test-pearl-build-org-content-client-group-overrides-server () + "The full render groups by :client-group, overriding a view's server :group." + (let ((out (pearl--build-org-content + test-pearl-grouping--issues + '(:type view :name "V" :id "vid" :group "project" + :client-group "workflowState")))) + (should (string-match-p "^\\*\\* In Progress$" out)) + (should (string-match-p "^\\*\\* Todo$" out)) + (should-not (string-match-p "^\\*\\* Apollo$" out)))) + +(ert-deftest test-pearl-build-org-content-server-group-when-no-client () + "With no :client-group, the full render still honors the view's server :group." + (let ((out (pearl--build-org-content + test-pearl-grouping--issues + '(:type view :name "V" :id "vid" :group "project")))) + (should (string-match-p "^\\*\\* Apollo$" out)) + (should-not (string-match-p "^\\*\\* In Progress$" out)))) + (provide 'test-pearl-grouping) ;;; test-pearl-grouping.el ends here |