feat(filter): multi-select states in the interactive builder

I made the builder's State prompt a completing-read-multiple, the way the Labels prompt already is, so you can pick several workflow states for one filter. The selection maps the way the spec describes: pick one and :state stays a scalar string, pick several and it becomes a list (state.name.in), pick none and there's no state constraint. The "[ Any. ]" sentinel is filtered out of the result like it is for labels.

Phase 2 of docs/multi-state-filter-spec.org. A stubbed-builder test covers the one/many/none mapping. Suite, compile, and lint green.

1 files changed, 40 insertions, 0 deletions

diff --git a/tests/test-pearl-adhoc.el b/tests/test-pearl-adhoc.el
index 68a920c..0c87add 100644
--- a/tests/test-pearl-adhoc.el
+++ b/tests/test-pearl-adhoc.el
@@ -266,5 +266,45 @@ rather than offering an empty picker."
       (pearl-list-issues-filtered '(:open t) "Saved adhoc")
       (should (assoc "Saved adhoc" pearl-local-views)))))
 
+;;; builder State prompt is multi-select (multi-state filter spec, phase 2)
+
+(defun test-pearl-adhoc--build-with-states (state-picks)
+  "Run `pearl--read-filter-interactively' stubbed so only State varies.
+STATE-PICKS is the list the State `completing-read-multiple' returns; every
+other dimension resolves to no constraint.  Returns the filter plist."
+  (cl-letf (((symbol-function 'pearl--all-teams)
+             (lambda () '(((id . "t1") (key . "ENG") (name . "Engineering")))))
+            ((symbol-function 'pearl--get-team-id-by-name) (lambda (&rest _) "t1"))
+            ((symbol-function 'pearl--read-yes-no) (lambda (&rest _) nil))
+            ((symbol-function 'pearl--team-states)
+             (lambda (&rest _)
+               '(((name . "Todo")) ((name . "In Review")) ((name . "Done")))))
+            ((symbol-function 'pearl--team-collection-names) (lambda (&rest _) nil))
+            ((symbol-function 'pearl--resolve-team-id) (lambda (&rest _) nil))
+            ((symbol-function 'completing-read)
+             (lambda (prompt &rest _)
+               (if (string-prefix-p "Team" prompt) "Engineering" pearl--filter-any)))
+            ((symbol-function 'completing-read-multiple)
+             (lambda (prompt &rest _)
+               (if (string-prefix-p "States" prompt)
+                   (copy-sequence state-picks)
+                 (list pearl--filter-any)))))
+    (pearl--read-filter-interactively)))
+
+(ert-deftest test-pearl-adhoc-builder-state-multi-yields-list ()
+  "Picking two states yields a list-valued :state."
+  (should (equal (plist-get (test-pearl-adhoc--build-with-states '("Todo" "In Review"))
+                            :state)
+                 '("Todo" "In Review"))))
+
+(ert-deftest test-pearl-adhoc-builder-state-one-yields-string ()
+  "Picking one state yields a scalar :state."
+  (should (equal (plist-get (test-pearl-adhoc--build-with-states '("Todo")) :state)
+                 "Todo")))
+
+(ert-deftest test-pearl-adhoc-builder-state-none-yields-no-key ()
+  "Picking no state leaves :state out of the filter."
+  (should-not (plist-member (test-pearl-adhoc--build-with-states '()) :state)))
+
 (provide 'test-pearl-adhoc)
 ;;; test-pearl-adhoc.el ends here