diff options
| author | Glenn Morris <rgm@gnu.org> | 2016-02-12 18:19:45 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2016-02-12 18:19:45 -0500 |
| commit | cd90b902b117508ce7b47bf6bb10e0d627d45d40 (patch) | |
| tree | d3422d18c32e7fe651df1077ae70307da1def049 /test/lisp/url | |
| parent | 2439753301018456203d71f96c0be65d910028f3 (diff) | |
| download | emacs-cd90b902b117508ce7b47bf6bb10e0d627d45d40.tar.gz | |
; * test/lisp/url/url-auth-tests.el: More whitespace.
Diffstat (limited to 'test/lisp/url')
| -rw-r--r-- | test/lisp/url/url-auth-tests.el | 13 |
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'." (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 |