Extend tramp--test-check-files (Bug#37228)

* test/lisp/net/tramp-tests.el (tramp--test-check-files): Test also
`directory-files-and-attributes'.  (Bug#37228)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 5767551e326301d766f09e9ceb840f7da56d62ab..0d37d0763f7034d2a520c2eac9d737d16f071336 100644 (file)
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -5153,7 +5153,8 @@ This requires restrictions of file name syntax."
           (tmp-name1 (tramp--test-make-temp-name nil quoted))
           (tmp-name2 (tramp--test-make-temp-name 'local quoted))
           (files (delq nil files))
-          (process-environment process-environment))
+          (process-environment process-environment)
+          (sorted-files (sort (copy-sequence files) #'string-lessp)))
       (unwind-protect
          (progn
            (make-directory tmp-name1)
@@ -5200,10 +5201,20 @@ This requires restrictions of file name syntax."
            ;; Check file names.
            (should (equal (directory-files
                            tmp-name1 nil directory-files-no-dot-files-regexp)
-                          (sort (copy-sequence files) #'string-lessp)))
+                          sorted-files))
            (should (equal (directory-files
                            tmp-name2 nil directory-files-no-dot-files-regexp)
-                          (sort (copy-sequence files) #'string-lessp)))
+                          sorted-files))
+           (should (equal (mapcar
+                           #'car
+                           (directory-files-and-attributes
+                            tmp-name1 nil directory-files-no-dot-files-regexp))
+                          sorted-files))
+           (should (equal (mapcar
+                           #'car
+                           (directory-files-and-attributes
+                            tmp-name2 nil directory-files-no-dot-files-regexp))
+                          sorted-files))
 
            ;; `substitute-in-file-name' could return different
            ;; values.  For `adb', there could be strange file