Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 13:27:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add test for file-name-base

Browse source 
* test/lisp/files-tests.el (files-tests-file-name-base): New test.
This commit is contained in:
Stefan Kangas 2021-10-27 05:34:52 +02:00
parent 7f4afe1609
commit e89b94f46d
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/lisp/files-tests.el
View file

@ -1551,6 +1551,15 @@ The door of all subtleties!
(should-error (file-name-with-extension "Jack" "."))
(should-error (file-name-with-extension "/is/a/directory/" "css")))
(ert-deftest files-tests-file-name-base ()
(should (equal (file-name-base) "files-tests"))
(should (equal (file-name-base "") ""))
(should (equal (file-name-base "/foo/") ""))
(should (equal (file-name-base "/foo") "foo"))
(should (equal (file-name-base "/foo/bar") "bar"))
(should (equal (file-name-base "foo") "foo"))
(should (equal (file-name-base "foo/bar") "bar")))
(ert-deftest files-test-dir-locals-auto-mode-alist ()
"Test an `auto-mode-alist' entry in `.dir-locals.el'"
(find-file (ert-resource-file "whatever.quux"))