From: Stefan Kangas <stefan@marxist.se>
Date: Wed, 27 Oct 2021 03:34:52 +0000 (+0200)
Subject: Add test for file-name-base
X-Git-Tag: emacs-29.0.90~3671^2~395
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e89b94f46d8a0ef3a270c31f3129eb8b4c8da646;p=emacs.git

Add test for file-name-base

* test/lisp/files-tests.el (files-tests-file-name-base): New test.
---

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index b283a512a42..c8b80e36601 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -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"))