From: Ted Zlatanov <tzz@lifelogs.com>
Date: Fri, 18 Aug 2017 22:44:58 +0000 (-0400)
Subject: * test/lisp/auth-source-tests.el: Minor cleanups to use CL.
X-Git-Tag: emacs-26.0.90~420
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ff5edc71373df398557f2fe45cc80099cc45317;p=emacs.git

* test/lisp/auth-source-tests.el: Minor cleanups to use CL.
---

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)