[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 bfc7c6e: * test/lisp/url/url-file-tests.el (url-f
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] emacs-26 bfc7c6e: * test/lisp/url/url-file-tests.el (url-file): Fix for POSIX filenames. |
Date: |
Fri, 28 Jun 2019 09:22:16 -0400 (EDT) |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 bfc7c6e: * test/lisp/url/url-file-tests.el (url-file): Fix for POSIX filenames.,
Juanma Barranquero <=