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