diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/url/url-file-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/url/url-file-tests.el b/test/lisp/url/url-file-tests.el index 45af1bba95d..84b7c3a70b0 100644 --- a/test/lisp/url/url-file-tests.el +++ b/test/lisp/url/url-file-tests.el | |||
| @@ -33,11 +33,11 @@ | |||
| 33 | "Directory for url-file test files.") | 33 | "Directory for url-file test files.") |
| 34 | 34 | ||
| 35 | (ert-deftest url-file () | 35 | (ert-deftest url-file () |
| 36 | "Test reading file via file:// URL." | 36 | "Test reading file via file:/// URL." |
| 37 | (let ((file (expand-file-name "file.txt" url-file-tests-data-directory))) | 37 | (let ((file (expand-file-name "file.txt" url-file-tests-data-directory))) |
| 38 | (should (equal | 38 | (should (equal |
| 39 | (with-current-buffer | 39 | (with-current-buffer |
| 40 | (url-file (url-generic-parse-url (concat "file://" file)) | 40 | (url-file (url-generic-parse-url (concat "file:///" file)) |
| 41 | #'ignore nil) | 41 | #'ignore nil) |
| 42 | (prog1 (buffer-substring (point) (point-max)) | 42 | (prog1 (buffer-substring (point) (point-max)) |
| 43 | (kill-buffer))) | 43 | (kill-buffer))) |