* test/lisp/url/url-file-tests.el (url-file): Use file:///, not file://.
This commit is contained in:
parent
0c5f6c6c63
commit
7a8f22b004
1 changed files with 2 additions and 2 deletions
|
@ -33,11 +33,11 @@
|
||||||
"Directory for url-file test files.")
|
"Directory for url-file test files.")
|
||||||
|
|
||||||
(ert-deftest url-file ()
|
(ert-deftest url-file ()
|
||||||
"Test reading file via file:// URL."
|
"Test reading file via file:/// URL."
|
||||||
(let ((file (expand-file-name "file.txt" url-file-tests-data-directory)))
|
(let ((file (expand-file-name "file.txt" url-file-tests-data-directory)))
|
||||||
(should (equal
|
(should (equal
|
||||||
(with-current-buffer
|
(with-current-buffer
|
||||||
(url-file (url-generic-parse-url (concat "file://" file))
|
(url-file (url-generic-parse-url (concat "file:///" file))
|
||||||
#'ignore nil)
|
#'ignore nil)
|
||||||
(prog1 (buffer-substring (point) (point-max))
|
(prog1 (buffer-substring (point) (point-max))
|
||||||
(kill-buffer)))
|
(kill-buffer)))
|
||||||
|
|
Loading…
Add table
Reference in a new issue