diff options
Diffstat (limited to 'tests/test-pearl-resolve.el')
| -rw-r--r-- | tests/test-pearl-resolve.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/test-pearl-resolve.el b/tests/test-pearl-resolve.el index aefe27a..df75b6f 100644 --- a/tests/test-pearl-resolve.el +++ b/tests/test-pearl-resolve.el @@ -136,6 +136,15 @@ (should-not pearl--cache-states) (should-not pearl--cache-teams))) +(ert-deftest test-pearl-clear-cache-forgets-auth-source () + "Clearing the cache also drops auth-source's own cache, so a key just added +to authinfo is findable without waiting out the 2h auth-source TTL." + (let ((called nil)) + (cl-letf (((symbol-function 'auth-source-forget-all-cached) + (lambda (&rest _) (setq called t)))) + (pearl-clear-cache) + (should called)))) + ;;; failure / malformed cases (ert-deftest test-pearl-team-collection-malformed-returns-nil-no-cache () |