From bbef979ae191b107714fe41258bd6bf0ec956352 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 21 Sep 2021 05:28:40 +0200 Subject: [PATCH] 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 226bb69c463..438f6ebbed1 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) -- 2.39.5