[elpa] externals/compat 9c6818c 20/99: Add directory-name-p compatibility function

[ELPA Syncer]

branch: externals/compat
commit 9c6818c9d326e46c56a4832b4db804710fd50755
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Add directory-name-p compatibility function
---
 compat-25.1.el  |  9 +++++++++
 compat-tests.el | 16 ++++++++++++++++
 2 files changed, 25 insertions(+)

diff --git a/compat-25.1.el b/compat-25.1.el
index 7621006..100e578 100644
--- a/compat-25.1.el
+++ b/compat-25.1.el
@@ -57,6 +57,15 @@ This implementation is equivalent to `format'."
 
 ;; TODO advise read-buffer to handle 4th argument
 
+;;;; Defined in fileio.c
+
+(compat-defun directory-name-p (name)
+  "Return non-nil if NAME ends with a directory separator character."
+  (eq (eval-when-compile
+        (if (memq system-type '(cygwin windows-nt ms-dos))
+            ?\\ ?/))
+      (aref name (1- (length name)))))
+
 ;;;; Defined in subr.el
 
 (compat-defun string-greaterp (string1 string2)
diff --git a/compat-tests.el b/compat-tests.el
index ba54d41..e0c0f88 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1203,5 +1203,21 @@ the compatibility function."
   (should (= (compat--named-let l ((i 0) (x 1)) (if (= i 8) x (l (1+ i) (* x 
2))))
              (expt 2 8))))
 
+(ert-deftest compat-directory-name-p ()
+  "Check if `directory-name-p' was implemented properly."
+  (compat-test directory-name-p
+    (compat--should t "/")
+    (compat--should nil "/file")
+    (compat--should nil "/dir/file")
+    (compat--should t "/dir/")
+    (compat--should nil "/dir")
+    (compat--should t "/dir/subdir/")
+    (compat--should nil "/dir/subdir")
+    (compat--should t "dir/")
+    (compat--should nil "file")
+    (compat--should nil "dir/file")
+    (compat--should t "dir/subdir/")
+    (compat--should nil "dir/subdir")))
+
 (provide 'compat-tests)
 ;;; compat-tests.el ends here