martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 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
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"))