[elpa] externals/compat e84b1117e5 3/6: Test file-name-parent-directory

[ELPA Syncer]

branch: externals/compat
commit e84b1117e5b2502f801591b63a34545bd50954e3
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Test file-name-parent-directory
---
 compat-29.el    | 2 +-
 compat-tests.el | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/compat-29.el b/compat-29.el
index e7bdba5dc3..1819b0123b 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -517,7 +517,7 @@ either a single number or a cons cell of two numbers.
 This tuple of numbers uniquely identifies the file."
   (nthcdr 10 attributes))
 
-(compat-defun file-name-parent-directory (filename) ;; <UNTESTED>
+(compat-defun file-name-parent-directory (filename) ;; <OK>
   "Return the directory name of the parent directory of FILENAME.
 If FILENAME is at the root of the filesystem, return nil.
 If FILENAME is relative, it is interpreted to be relative
diff --git a/compat-tests.el b/compat-tests.el
index 18306bda25..542d4926a3 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -731,6 +731,12 @@
   (should-equal (file-name-concat "" "bar") "bar")
   (should-equal (file-name-concat "" "") ""))
 
+(ert-deftest file-name-parent-directory ()
+  (should-equal (file-name-parent-directory "/foo/bar") "/foo/")
+  (should-equal (file-name-parent-directory "/foo/") "/")
+  (should-equal (file-name-parent-directory "foo/bar") "foo/")
+  (should-equal (file-name-parent-directory "foo") "./"))
+
 (ert-deftest file-name-split ()
   (should-equal (file-name-split "foo/bar") '("foo" "bar"))
   (should-equal (file-name-split "/foo/bar") '("" "foo" "bar"))