diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-10 00:26:32 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-10 00:26:32 +0100 |
| commit | 2e6ed253ce485698df649904bd9e5254a3f4bf94 (patch) | |
| tree | 80d51ebb50d65eddd987b89e93d4d52499a48109 /test/lisp | |
| parent | fdc00b98361300861db6402e021d335025f6e8ce (diff) | |
| download | emacs-2e6ed253ce485698df649904bd9e5254a3f4bf94.tar.gz emacs-2e6ed253ce485698df649904bd9e5254a3f4bf94.tar.bz2 emacs-2e6ed253ce485698df649904bd9e5254a3f4bf94.zip | |
Add new function 'file-name-split'
* doc/lispref/files.texi (File Name Components): Document it.
* lisp/files.el (file-name-split): New function (bug#50572).
* lisp/emacs-lisp/shortdoc.el (file-name): Mention it.
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/files-tests.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index c6d7c19279b..1e20317739a 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el @@ -1800,6 +1800,12 @@ 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 () + (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"))) + (should (equal (file-name-split "/foo/bar/") '("" "foo" "bar" ""))) + (should (equal (file-name-split "foo/bar/") '("foo" "bar" "")))) (provide 'files-tests) ;;; files-tests.el ends here |