diff options
Diffstat (limited to 'tests/test-pearl-accounts.el')
| -rw-r--r-- | tests/test-pearl-accounts.el | 16 |
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 |