diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-pearl-default-view.el | 117 |
1 files changed, 117 insertions, 0 deletions
diff --git a/tests/test-pearl-default-view.el b/tests/test-pearl-default-view.el index 2794972..37d638a 100644 --- a/tests/test-pearl-default-view.el +++ b/tests/test-pearl-default-view.el @@ -130,5 +130,122 @@ It dispatches to `pearl-list-issues' and never calls `pearl-run-local-view'." (should (equal calls '((list)))) (should messaged)))) +;;; pearl--persist-default-view -- scope targeting + metadata preservation + +(ert-deftest test-pearl-persist-default-view-legacy () + "Legacy mode: persisting writes `pearl-default-view' and saves it." + (let ((pearl-accounts nil) + (pearl-default-view nil) + (saved nil)) + (cl-letf (((symbol-function 'customize-save-variable) + (lambda (sym val) (setq saved (cons sym val))))) + (pearl--persist-default-view "My active work") + (should (string-equal "My active work" pearl-default-view)) + (should (equal saved '(pearl-default-view . "My active work")))))) + +(ert-deftest test-pearl-persist-default-view-legacy-clear () + "Legacy mode: persisting nil clears the default back to my open issues." + (let ((pearl-accounts nil) + (pearl-default-view "Something") + (saved nil)) + (cl-letf (((symbol-function 'customize-save-variable) + (lambda (sym val) (setq saved (cons sym val))))) + (pearl--persist-default-view nil) + (should-not pearl-default-view) + (should (equal saved '(pearl-default-view)))))) + +(ert-deftest test-pearl-persist-default-view-accounts-targets-active () + "Accounts mode: persisting updates only the active account's :default-view." + (let ((pearl-accounts + '(("work" :api-key-source (:literal "kw") :org-file "/tmp/w.org" + :default-team-id "team_w") + ("home" :api-key-source (:literal "kh") :org-file "/tmp/h.org"))) + (pearl-default-account nil) + (pearl-active-account "work") + (saved nil)) + (cl-letf (((symbol-function 'customize-save-variable) + (lambda (sym val) (setq saved (cons sym val))))) + (pearl--persist-default-view "Work board") + ;; active account got the key + (should (string-equal "Work board" + (plist-get (cdr (assoc "work" pearl-accounts)) :default-view))) + ;; the other account is untouched + (should-not (plist-get (cdr (assoc "home" pearl-accounts)) :default-view)) + ;; pearl-accounts (not the legacy global) was the saved variable + (should (eq 'pearl-accounts (car saved)))))) + +(ert-deftest test-pearl-persist-default-view-accounts-preserves-keys () + "Accounts mode: the rewrite preserves the active account's other plist keys." + (let ((pearl-accounts + '(("work" :api-key-source (:literal "kw") :org-file "/tmp/w.org" + :default-team-id "team_w" :url "https://example/api"))) + (pearl-default-account nil) + (pearl-active-account "work")) + (cl-letf (((symbol-function 'customize-save-variable) (lambda (&rest _) nil))) + (pearl--persist-default-view "Work board") + (let ((spec (cdr (assoc "work" pearl-accounts)))) + (should (equal '(:literal "kw") (plist-get spec :api-key-source))) + (should (string-equal "/tmp/w.org" (plist-get spec :org-file))) + (should (string-equal "team_w" (plist-get spec :default-team-id))) + (should (string-equal "https://example/api" (plist-get spec :url))) + (should (string-equal "Work board" (plist-get spec :default-view))))))) + +;;; pearl-set-default-view -- value determination paths + +(ert-deftest test-pearl-set-default-view-from-buffer-offer () + "From a local-view buffer, accepting the offer persists that view's name." + (let ((pearl-accounts nil) + (pearl-default-view nil) + (pearl-local-views '(("Sprint board" :filter (:open t)))) + (persisted 'untouched)) + (cl-letf (((symbol-function 'pearl--read-active-source) + (lambda () '(:type filter :name "Sprint board" :filter (:open t)))) + ((symbol-function 'pearl--read-yes-no) (lambda (&rest _) t)) + ((symbol-function 'pearl--persist-default-view) + (lambda (v) (setq persisted v)))) + (pearl-set-default-view) + (should (string-equal "Sprint board" persisted))))) + +(ert-deftest test-pearl-set-default-view-prompt-pick-name () + "Not on a local-view buffer: the prompt's chosen name is persisted." + (let ((pearl-accounts nil) + (pearl-default-view nil) + (pearl-local-views '(("Sprint board" :filter (:open t)))) + (persisted 'untouched)) + (cl-letf (((symbol-function 'pearl--read-active-source) (lambda () nil)) + ((symbol-function 'completing-read) + (lambda (&rest _) "Sprint board")) + ((symbol-function 'pearl--persist-default-view) + (lambda (v) (setq persisted v)))) + (pearl-set-default-view) + (should (string-equal "Sprint board" persisted))))) + +(ert-deftest test-pearl-set-default-view-clear-sentinel-sets-nil () + "Choosing the my-open-issues sentinel persists nil (clears the default)." + (let ((pearl-accounts nil) + (pearl-default-view "Sprint board") + (pearl-local-views '(("Sprint board" :filter (:open t)))) + (persisted 'untouched)) + (cl-letf (((symbol-function 'pearl--read-active-source) (lambda () nil)) + ((symbol-function 'completing-read) + (lambda (&rest _) pearl--default-view-clear)) + ((symbol-function 'pearl--persist-default-view) + (lambda (v) (setq persisted v)))) + (pearl-set-default-view) + (should (null persisted))))) + +(ert-deftest test-pearl-set-default-view-cancel-leaves-unchanged () + "An empty / quit choice persists nothing -- the default is left as-is." + (let ((pearl-accounts nil) + (pearl-default-view "Sprint board") + (pearl-local-views '(("Sprint board" :filter (:open t)))) + (persisted 'untouched)) + (cl-letf (((symbol-function 'pearl--read-active-source) (lambda () nil)) + ((symbol-function 'completing-read) (lambda (&rest _) "")) + ((symbol-function 'pearl--persist-default-view) + (lambda (v) (setq persisted v)))) + (pearl-set-default-view) + (should (eq 'untouched persisted))))) + (provide 'test-pearl-default-view) ;;; test-pearl-default-view.el ends here |