* 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.")
|
||||
|
||||
(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)))
|
||||
(should (equal
|
||||
(with-current-buffer
|
||||
(url-file (url-generic-parse-url (concat "file://" file))
|
||||
(url-file (url-generic-parse-url (concat "file:///" file))
|
||||
#'ignore nil)
|
||||
(prog1 (buffer-substring (point) (point-max))
|
||||
(kill-buffer)))
|
||||
|
|
Loading…
Add table
Reference in a new issue