diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-11 13:20:34 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-11 13:20:38 +0100 |
| commit | d75558f11c802dddc9b173f85b1c07aff7c9c3bd (patch) | |
| tree | 4452be889165910039081641cd2c88a6b5e70d5c /test/lisp | |
| parent | bf9364a56e618277fe72c90b3a741ade8bc0d205 (diff) | |
| download | emacs-d75558f11c802dddc9b173f85b1c07aff7c9c3bd.tar.gz emacs-d75558f11c802dddc9b173f85b1c07aff7c9c3bd.tar.bz2 emacs-d75558f11c802dddc9b173f85b1c07aff7c9c3bd.zip | |
Fix problem with non-absolute names
* lisp/files.el (file-name-split): Fix problem with non-absolute
names.
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/files-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index 787e6390a6e..d00f1ce3263 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el @@ -1806,7 +1806,7 @@ Prompt users for any modified buffer with `buffer-offer-save' non-nil." ;; `save-some-buffers-default-predicate' (i.e. the 2nd element) is ignored. (nil save-some-buffers-root ,nb-might-save)))))) -(defun test-file-name-split () +(ert-deftest test-file-name-split () (should (equal (file-name-split "foo/bar") '("foo" "bar"))) (should (equal (file-name-split "/foo/bar") '("" "foo" "bar"))) (should (equal (file-name-split "/foo/bar/zot") '("" "foo" "bar" "zot"))) |