master bbef979: Only search netrc in the netrc tests

[Lars Ingebrigtsen]

branch: master
commit bbef979ae191b107714fe41258bd6bf0ec956352
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Only search netrc in the netrc tests
    
    * test/lisp/auth-source-tests.el
    (auth-source-test-netrc-create-secret): Only search netrc.
---
 test/lisp/auth-source-tests.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/test/lisp/auth-source-tests.el b/test/lisp/auth-source-tests.el
index 226bb69..438f6eb 100644
--- a/test/lisp/auth-source-tests.el
+++ b/test/lisp/auth-source-tests.el
@@ -376,7 +376,8 @@
                   (md5 (concat (prin1-to-string process-environment) passwd))
                   auth-info
                   (car (auth-source-search
-                        :max 1 :host host :require '(:user :secret) :create t))
+                        :max 1 :host host :require '(:user :secret) :create t
+                        :type 'netrc))
                  auth-passwd (plist-get auth-info :secret)
                  auth-passwd (if (functionp auth-passwd)
                                  (funcall auth-passwd)