From cd90b902b117508ce7b47bf6bb10e0d627d45d40 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 12 Feb 2016 18:19:45 -0500 Subject: [PATCH] ; * test/lisp/url/url-auth-tests.el: More whitespace. --- test/lisp/url/url-auth-tests.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/test/lisp/url/url-auth-tests.el b/test/lisp/url/url-auth-tests.el index 1fafaa1177c..0f221b2e13a 100644 --- a/test/lisp/url/url-auth-tests.el +++ b/test/lisp/url/url-auth-tests.el @@ -202,11 +202,12 @@ test and cannot be passed by arguments to `url-digest-auth'." (list "example.org:80" (cons (or (plist-get challenge :realm) "/") (cons (plist-get challenge :username) - (url-digest-auth-create-key (plist-get challenge :username) - (plist-get challenge :password) - (plist-get challenge :realm) - (plist-get challenge :method) - (plist-get challenge :uri))))))) + (url-digest-auth-create-key + (plist-get challenge :username) + (plist-get challenge :password) + (plist-get challenge :realm) + (plist-get challenge :method) + (plist-get challenge :uri))))))) (setq auth (url-digest-auth (url-generic-parse-url url) nil nil (plist-get challenge :realm) attrs)) (should auth) @@ -227,7 +228,7 @@ test and cannot be passed by arguments to `url-digest-auth'." (should (string-match ".*response=\"\\(.*?\\)\".*" auth)) (should (string= (match-string 1 auth) (plist-get challenge :expected-response)))) - ))) + ))) (ert-deftest url-auth-test-digest-auth-opaque () "Check that `opaque' value is added to result when presented by -- 2.39.2