Commit bfc7c6e0 authored by Juanma Barranquero's avatar Juanma Barranquero

* test/lisp/url/url-file-tests.el (url-file): Fix for POSIX filenames.

parent 13b95e1c
......@@ -34,10 +34,11 @@
(ert-deftest url-file ()
"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))
(uri-prefix (if (eq (aref file 0) ?/) "file://" "file:///")))
(should (equal
(with-current-buffer
(url-file (url-generic-parse-url (concat "file:///" file))
(url-file (url-generic-parse-url (concat uri-prefix file))
#'ignore nil)
(prog1 (buffer-substring (point) (point-max))
(kill-buffer)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment