From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 21 Sep 2021 03:59:11 +0000 (+0200)
Subject: Clear netrc cache in auth-source test
X-Git-Tag: emacs-28.0.90~802
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0619da0d82208431a13e43dd4e55a3daefe76551;p=emacs.git

Clear netrc cache in auth-source test

* test/lisp/auth-source-tests.el
(auth-source-test-netrc-create-secret): Clear the netrc cache, too.
---

diff --git a/test/lisp/auth-source-tests.el b/test/lisp/auth-source-tests.el
index 438f6ebbed1..5140970b0b6 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)