From 9ff5edc71373df398557f2fe45cc80099cc45317 Mon Sep 17 00:00:00 2001 From: Ted Zlatanov Date: Fri, 18 Aug 2017 18:44:58 -0400 Subject: [PATCH] * test/lisp/auth-source-tests.el: Minor cleanups to use CL. --- test/lisp/auth-source-tests.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/test/lisp/auth-source-tests.el b/test/lisp/auth-source-tests.el index eb56e94af2c..99d830c6b06 100644 --- a/test/lisp/auth-source-tests.el +++ b/test/lisp/auth-source-tests.el @@ -27,6 +27,7 @@ ;;; Code: (require 'ert) +(require 'cl) (require 'auth-source) (defvar secrets-enabled t @@ -266,20 +267,16 @@ :host "b1" :port "b2" :user "b3") )) - (text (string-join entries "\n")) (netrc-file (make-temp-file "auth-source-test" nil nil (string-join entries "\n"))) (auth-sources (list netrc-file)) - (auth-source-do-cache nil)) + (auth-source-do-cache nil) + found found-as-string) (dolist (test tests) - (let ((testname (car test)) - (needed (cadr test)) - (parameters (cddr test)) - found found-as-string) - + (cl-destructuring-bind (testname needed &rest parameters) test (setq found (apply #'auth-source-search parameters)) (when (listp found) (dolist (f found) -- 2.39.2