[elpa] externals/compat 919f25d642 10/13: Restore test

[ELPA Syncer]

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

    Restore test
---
 compat-tests.el | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 72f31472c4..e35fc45081 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -443,6 +443,20 @@
   (should-equal t (always 1))                    ;; single argument
   (should-equal t (always 1 2 3 4)))             ;; multiple arguments
 
+(ert-deftest directory-name-p ()
+  (should (directory-name-p "/"))
+  (should-not (directory-name-p "/file"))
+  (should-not (directory-name-p "/dir/file"))
+  (should (directory-name-p "/dir/"))
+  (should-not (directory-name-p "/dir"))
+  (should (directory-name-p "/dir/subdir/"))
+  (should-not (directory-name-p "/dir/subdir"))
+  (should (directory-name-p "dir/"))
+  (should-not (directory-name-p "file"))
+  (should-not (directory-name-p "dir/file"))
+  (should (directory-name-p "dir/subdir/"))
+  (should-not (directory-name-p "dir/subdir")))
+
 (ert-deftest file-size-human-readable ()
   (should-equal "1000" (compat-call file-size-human-readable 1000))
   (should-equal "1k" (compat-call file-size-human-readable 1024))
@@ -1299,20 +1313,6 @@
 ;; ;;           (compat-sort (directory-files-recursively "." 
"make\\|copying") #'string<)
 ;; ;;           '("./.github/workflows/makefile.yml" "./COPYING" 
"./Makefile"))))
 
-;; (ert-deftest directory-name-p
-;;   (should-equal t "/")
-;;   (should-equal nil "/file")
-;;   (should-equal nil "/dir/file")
-;;   (should-equal t "/dir/")
-;;   (should-equal nil "/dir")
-;;   (should-equal t "/dir/subdir/")
-;;   (should-equal nil "/dir/subdir")
-;;   (should-equal t "dir/")
-;;   (should-equal nil "file")
-;;   (should-equal nil "dir/file")
-;;   (should-equal t "dir/subdir/")
-;;   (should-equal nil "dir/subdir"))
-
 ;; (ert-deftest if-let* ()
 ;;   (should
 ;;    (compat--t-if-let*