aboutsummaryrefslogtreecommitdiff
path: root/tests/test-pearl-accounts.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2026-06-01 17:33:09 -0500
committerCraig Jennings <c@cjennings.net>2026-06-01 17:33:09 -0500
commitc2ba1d8f25463bf6342ac635850500a9738b31e9 (patch)
tree69518c846bc2e9b11559dc637b6ee81d9d3511c0 /tests/test-pearl-accounts.el
parent4eab7a048ca18eeef31e4f8d0823182fc6e2368f (diff)
downloadpearl-c2ba1d8f25463bf6342ac635850500a9738b31e9.tar.gz
pearl-c2ba1d8f25463bf6342ac635850500a9738b31e9.zip
refactor: rename saved-query surface to local-view vocabulary
I renamed Pearl's "saved query" surface to the local/Linear view vocabulary, with no obsolete aliases, since Pearl has no users to protect. The defcustom pearl-saved-queries is now pearl-local-views. The commands pearl-run-saved-query, pearl-delete-saved-query, pearl-sync-saved-query-to-linear, pearl-run-view, and pearl-publish-current-source become pearl-run-local-view, pearl-delete-local-view, pearl-publish-local-view, pearl-run-linear-view, and pearl-publish-current-view. User-facing prompts, messages, and docstrings drop "saved query" for "local view", and the publish command reads "publish" instead of "sync". Internal GraphQL and helper names keep their "query" terms, which a user never sees. A naming-regression test asserts the new symbols exist, the old ones are gone rather than aliased, and no public command exposes "query". Phase 1 of docs/local-and-linear-views-spec.org. No behavior change. Suite, compile, and lint are green.
Diffstat (limited to 'tests/test-pearl-accounts.el')
-rw-r--r--tests/test-pearl-accounts.el16
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/test-pearl-accounts.el b/tests/test-pearl-accounts.el
index f8bc06b..2a4cb69 100644
--- a/tests/test-pearl-accounts.el
+++ b/tests/test-pearl-accounts.el
@@ -403,35 +403,35 @@ fetching the active account's issues into it would cross workspaces."
;;; Saved-query :account guard
(ert-deftest test-pearl-run-saved-query-refuses-other-account-before-network ()
- "A saved query tagged for another account refuses before any compilation or fetch."
+ "A local view tagged for another account refuses before any compilation or fetch."
(let ((pearl-accounts '(("work" :api-key-source (:literal "kw") :org-file "/tmp/w.org")
("home" :api-key-source (:literal "kh") :org-file "/tmp/h.org")))
(pearl-active-account "home") (pearl-default-account "home")
- (pearl-saved-queries '(("Work bugs" :account "work" :filter (:assignee :me))))
+ (pearl-local-views '(("Work bugs" :account "work" :filter (:assignee :me))))
(api-called nil))
(cl-letf (((symbol-function 'request) (lambda (&rest _) (setq api-called t))))
- (let ((err (should-error (pearl-run-saved-query "Work bugs") :type 'error)))
+ (let ((err (should-error (pearl-run-local-view "Work bugs") :type 'error)))
(should (string-match-p "work" (error-message-string err))))
(should-not api-called))))
(ert-deftest test-pearl-run-saved-query-account-match-proceeds-to-fetch ()
- "A saved query tagged for the active account compiles and dispatches."
+ "A local view tagged for the active account compiles and dispatches."
(let ((pearl-accounts '(("work" :api-key-source (:literal "kw") :org-file "/tmp/w.org")))
(pearl-active-account "work") (pearl-default-account "work")
- (pearl-saved-queries '(("Work bugs" :account "work" :filter (:assignee :me))))
+ (pearl-local-views '(("Work bugs" :account "work" :filter (:assignee :me))))
(api-called nil))
(cl-letf (((symbol-function 'request) (lambda (&rest _) (setq api-called t))))
- (pearl-run-saved-query "Work bugs")
+ (pearl-run-local-view "Work bugs")
(should api-called))))
(ert-deftest test-pearl-run-saved-query-account-tag-ignored-in-legacy ()
"With no accounts configured, an `:account' tag is inert (shared query)."
(let ((pearl-accounts nil) (pearl-active-account nil) (pearl-default-account nil)
(pearl-api-key "lin_legacy")
- (pearl-saved-queries '(("Work bugs" :account "work" :filter (:assignee :me))))
+ (pearl-local-views '(("Work bugs" :account "work" :filter (:assignee :me))))
(api-called nil))
(cl-letf (((symbol-function 'request) (lambda (&rest _) (setq api-called t))))
- (pearl-run-saved-query "Work bugs")
+ (pearl-run-local-view "Work bugs")
(should api-called))))
;;; pearl-load-api-key-from-env legacy-only