From 546bcf9bbe651eaaa0129346536c9e7e98748555 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Mon, 15 Jun 2026 23:57:14 -0500 Subject: fix(api): clear auth-source's negative cache on pearl-clear-cache A key added to authinfo read as missing for up to 2h because auth-source caches the negative lookup and `pearl-clear-cache` only cleared pearl's own caches. It now also calls `auth-source-forget-all-cached`, and the auth-source miss tells the user to run `M-x pearl-clear-cache`. This is the 2026-06-01 live incident, where a freshly-synced Linear key kept erroring as unset. --- tests/test-pearl-accounts.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'tests/test-pearl-accounts.el') diff --git a/tests/test-pearl-accounts.el b/tests/test-pearl-accounts.el index 4de9c2f..82f5e56 100644 --- a/tests/test-pearl-accounts.el +++ b/tests/test-pearl-accounts.el @@ -85,6 +85,15 @@ '(:auth-source :host "api.linear.app" :user "work") "work") :type 'user-error))) +(ert-deftest test-pearl-resolve-api-key-source-auth-miss-hints-at-cache () + "An auth-source miss hints at the negative cache, so a freshly added key is +recoverable via clear-cache rather than reading as permanently missing." + (cl-letf (((symbol-function 'auth-source-search) (lambda (&rest _) nil))) + (let ((err (should-error (pearl--resolve-api-key-source + '(:auth-source :host "api.linear.app" :user "work") "work") + :type 'user-error))) + (should (string-match-p "clear-cache" (error-message-string err)))))) + ;;; pearl--resolve-account (ert-deftest test-pearl-resolve-account-returns-full-context () -- cgit v1.2.3