diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2020-08-12 14:53:29 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-12 16:30:17 +0200 |
| commit | 76098d39c992aa51f5bdb04fb39e40fc5eb409d5 (patch) | |
| tree | f8ed8cb5d347e216079ed252f07b3afdb5fc4acf /test | |
| parent | a5a0a9c9ca0f0485db2c324a30109f655522800d (diff) | |
| download | emacs-76098d39c992aa51f5bdb04fb39e40fc5eb409d5.tar.gz | |
Do not truncate /foo//bar to /bar/ in parse-colon-path
* lisp/files.el (parse-colon-path): Use substitute-env-vars and
expand-file-name instead of substitute-in-file-name (Bug#21454).
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/files-tests.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index 4b902fd82ae..5b2f5fd6f0f 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el @@ -190,7 +190,6 @@ form.") (ert-deftest files-tests-bug-21454 () "Test for https://debbugs.gnu.org/21454 ." - :expected-result :failed (let ((input-result '(("/foo/bar//baz/:/bar/foo/baz//" nil ("/foo/bar/baz/" "/bar/foo/baz/")) ("/foo/bar/:/bar/qux/:/qux/foo" nil ("/foo/bar/" "/bar/qux/" "/qux/foo/")) @@ -1362,5 +1361,9 @@ See <https://debbugs.gnu.org/36401>." (normal-mode) (should (not (eq major-mode 'text-mode)))))) +(ert-deftest files-colon-path () + (should (equal (parse-colon-path "/foo//bar/baz") + '("/foo/bar/baz/")))) + (provide 'files-tests) ;;; files-tests.el ends here |