[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0619da0: Clear netrc cache in auth-source test
From: |
Lars Ingebrigtsen |
Subject: |
master 0619da0: Clear netrc cache in auth-source test |
Date: |
Mon, 20 Sep 2021 23:59:18 -0400 (EDT) |
branch: master
commit 0619da0d82208431a13e43dd4e55a3daefe76551
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Clear netrc cache in auth-source test
* test/lisp/auth-source-tests.el
(auth-source-test-netrc-create-secret): Clear the netrc cache, too.
---
test/lisp/auth-source-tests.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/test/lisp/auth-source-tests.el b/test/lisp/auth-source-tests.el
index 438f6eb..5140970 100644
--- a/test/lisp/auth-source-tests.el
+++ b/test/lisp/auth-source-tests.el
@@ -376,8 +376,7 @@
(md5 (concat (prin1-to-string process-environment) passwd))
auth-info
(car (auth-source-search
- :max 1 :host host :require '(:user :secret) :create t
- :type 'netrc))
+ :max 1 :host host :require '(:user :secret) :create t))
auth-passwd (plist-get auth-info :secret)
auth-passwd (if (functionp auth-passwd)
(funcall auth-passwd)
@@ -390,6 +389,7 @@
;; Check, that the item has been created indeed.
(auth-source-forget+ :host t)
+ (setq auth-source-netrc-cache nil)
(setq auth-info (car (auth-source-search :host host))
auth-passwd (plist-get auth-info :secret)
auth-passwd (if (functionp auth-passwd)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 0619da0: Clear netrc cache in auth-source test,
Lars Ingebrigtsen <=