[Emacs-diffs] emacs-26 bfc7c6e: * test/lisp/url/url-file-tests.el (url-file): Fix for POSIX filenames.

[Juanma Barranquero]

branch: emacs-26
commit bfc7c6e0d3d37e907936d519438413d4b6d01b98
Author: Juanma Barranquero <address@hidden>
Commit: Juanma Barranquero <address@hidden>

    * test/lisp/url/url-file-tests.el (url-file): Fix for POSIX filenames.
---
 test/lisp/url/url-file-tests.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/test/lisp/url/url-file-tests.el b/test/lisp/url/url-file-tests.el
index 84b7c3a..58e0250 100644
--- a/test/lisp/url/url-file-tests.el
+++ b/test/lisp/url/url-file-tests.el
@@ -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)))