aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2016-02-12 18:19:45 -0500
committerGlenn Morris2016-02-12 18:19:45 -0500
commitcd90b902b117508ce7b47bf6bb10e0d627d45d40 (patch)
treed3422d18c32e7fe651df1077ae70307da1def049
parent2439753301018456203d71f96c0be65d910028f3 (diff)
downloademacs-cd90b902b117508ce7b47bf6bb10e0d627d45d40.tar.gz
emacs-cd90b902b117508ce7b47bf6bb10e0d627d45d40.zip
; * test/lisp/url/url-auth-tests.el: More whitespace.
-rw-r--r--test/lisp/url/url-auth-tests.el13
1 files 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'."
202 (list "example.org:80" 202 (list "example.org:80"
203 (cons (or (plist-get challenge :realm) "/") 203 (cons (or (plist-get challenge :realm) "/")
204 (cons (plist-get challenge :username) 204 (cons (plist-get challenge :username)
205 (url-digest-auth-create-key (plist-get challenge :username) 205 (url-digest-auth-create-key
206 (plist-get challenge :password) 206 (plist-get challenge :username)
207 (plist-get challenge :realm) 207 (plist-get challenge :password)
208 (plist-get challenge :method) 208 (plist-get challenge :realm)
209 (plist-get challenge :uri))))))) 209 (plist-get challenge :method)
210 (plist-get challenge :uri)))))))
210 (setq auth (url-digest-auth (url-generic-parse-url url) nil nil 211 (setq auth (url-digest-auth (url-generic-parse-url url) nil nil
211 (plist-get challenge :realm) attrs)) 212 (plist-get challenge :realm) attrs))
212 (should auth) 213 (should auth)
@@ -227,7 +228,7 @@ test and cannot be passed by arguments to `url-digest-auth'."
227 (should (string-match ".*response=\"\\(.*?\\)\".*" auth)) 228 (should (string-match ".*response=\"\\(.*?\\)\".*" auth))
228 (should (string= (match-string 1 auth) 229 (should (string= (match-string 1 auth)
229 (plist-get challenge :expected-response)))) 230 (plist-get challenge :expected-response))))
230 ))) 231 )))
231 232
232(ert-deftest url-auth-test-digest-auth-opaque () 233(ert-deftest url-auth-test-digest-auth-opaque ()
233 "Check that `opaque' value is added to result when presented by 234 "Check that `opaque' value is added to result when presented by