procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juanma Barranquero 2019-06-28 15:22:00 +02:00
parent 13b95e1cc7
commit bfc7c6e0d3
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/lisp/url/url-file-tests.el
View file

@ -34,10 +34,11 @@
(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))
(uri-prefix (if (eq (aref file 0) ?/) "file://" "file:///")))
(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 uri-prefix file))
#'ignore nil) #'ignore nil)
(prog1 (buffer-substring (point) (point-max)) (prog1 (buffer-substring (point) (point-max))
(kill-buffer))) (kill-buffer)))