]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix indentation in auth-source-pass-tests.el
authorDamien Cassou <damien@cassou.me>
Tue, 7 Nov 2017 08:33:22 +0000 (09:33 +0100)
committerNicolas Petton <nicolas@petton.fr>
Tue, 5 Jun 2018 13:50:54 +0000 (15:50 +0200)
* test/lisp/auth-source-pass-tests.el
(auth-source-pass-only-return-entries-that-can-be-open): Fix indentation.

test/lisp/auth-source-pass-tests.el

index 557a34ff596a19f5fc4906c3726b596c4e8551b9..adb0b5d93fecd3eb99e7b00151827676a28dfdcb 100644 (file)
@@ -206,12 +206,10 @@ This function is intended to be set to `auth-source-debug`."
 
 (ert-deftest auth-source-pass-only-return-entries-that-can-be-open ()
   (cl-letf (((symbol-function 'auth-source-pass-entries)
-             (lambda () '("foo.site.com" "bar.site.com"
-                     "mail/baz.site.com/scott")))
+             (lambda () '("foo.site.com" "bar.site.com" "mail/baz.site.com/scott")))
             ((symbol-function 'auth-source-pass--entry-valid-p)
              ;; only foo.site.com and "mail/baz.site.com/scott" are valid
-             (lambda (entry) (member entry '("foo.site.com"
-                                        "mail/baz.site.com/scott")))))
+             (lambda (entry) (member entry '("foo.site.com" "mail/baz.site.com/scott")))))
     (should (equal (auth-source-pass--find-all-by-entry-name "foo.site.com" "someuser")
                    '("foo.site.com")))
     (should (equal (auth-source-pass--find-all-by-entry-name "bar.site.com" "someuser")