diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2019-06-28 15:22:00 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2019-06-28 15:22:00 +0200 |
| commit | bfc7c6e0d3d37e907936d519438413d4b6d01b98 (patch) | |
| tree | a6f80ceee8ad8de9e5fa7400fbff00762ba39fbe | |
| parent | 13b95e1cc7d6b747adbe422e84543b0f2fff115a (diff) | |
| download | emacs-bfc7c6e0d3d37e907936d519438413d4b6d01b98.tar.gz | |
* test/lisp/url/url-file-tests.el (url-file): Fix for POSIX filenames.
| -rw-r--r-- | test/lisp/url/url-file-tests.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test/lisp/url/url-file-tests.el b/test/lisp/url/url-file-tests.el index 84b7c3a70b0..58e0250ba96 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))) |