Implement access-file in Tramp

* lisp/net/tramp-adb.el (tramp-adb-file-name-handler-alist):
* lisp/net/tramp-archive.el (tramp-archive-file-name-handler-alist):
* lisp/net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
* lisp/net/tramp-rclone.el (tramp-rclone-file-name-handler-alist):
* lisp/net/tramp-sh.el (tramp-sh-file-name-handler-alist)
* lisp/net/tramp-smb.el (tramp-smb-file-name-handler-alist):
* lisp/net/tramp-sudoedit.el (tramp-sudoedit-file-name-handler-alist):
Add `access-file'.

* lisp/net/tramp-archive.el (tramp-archive-handle-access-file):
* lisp/net/tramp.el (tramp-handle-access-file): New defun.
(tramp-condition-case-unless-debug): Add declaration.
(tramp-handle-insert-directory):
* lisp/net/tramp-sh.el (tramp-sh-handle-insert-directory):
* lisp/net/tramp-smb.el (tramp-smb-handle-insert-directory):
Check, whether directory is accessible.

* test/lisp/net/tramp-archive-tests.el
(tramp-archive-test17-insert-directory)
(tramp-archive-test18-file-attributes):
* test/lisp/net/tramp-tests.el (tramp-test17-insert-directory)
(tramp-test18-file-attributes): Test error cases.

2 files changed, 39 insertions, 8 deletions

diff --git a/test/lisp/net/tramp-archive-tests.el b/test/lisp/net/tramp-archive-tests.el
index 1d9de39ae96..9f06ab1000c 100644
--- a/test/lisp/net/tramp-archive-tests.el
+++ b/test/lisp/net/tramp-archive-tests.el
@@ -570,26 +570,35 @@ This checks also `file-name-as-directory', `file-name-directory',
                (format
                 "\\(.+ %s\\( ->.+\\)?\n\\)\\{%d\\}"
                 (regexp-opt (directory-files tramp-archive-test-archive))
-                (length (directory-files tramp-archive-test-archive))))))))
+                (length (directory-files tramp-archive-test-archive)))))))
+
+          ;; Check error case.
+          (with-temp-buffer
+            (should-error
+             (insert-directory
+              (expand-file-name "baz" tramp-archive-test-archive) nil)
+             :type tramp-file-missing)))
 
       ;; Cleanup.
       (tramp-archive-cleanup-hash))))
 
 (ert-deftest tramp-archive-test18-file-attributes ()
   "Check `file-attributes'.
-This tests also `file-readable-p' and `file-regular-p'."
+This tests also `access-file', `file-readable-p' and `file-regular-p'."
   :tags '(:expensive-test)
   (skip-unless tramp-archive-enabled)
 
   (let ((tmp-name1 (expand-file-name "foo.txt" tramp-archive-test-archive))
         (tmp-name2 (expand-file-name "foo.lnk" tramp-archive-test-archive))
         (tmp-name3 (expand-file-name "bar" tramp-archive-test-archive))
+        (tmp-name4 (expand-file-name "baz" tramp-archive-test-archive))
         attr)
     (unwind-protect
         (progn
           (should (file-exists-p tmp-name1))
           (should (file-readable-p tmp-name1))
           (should (file-regular-p tmp-name1))
+          (should-not (access-file tmp-name1 "error"))
 
           ;; We do not test inodes and device numbers.
           (setq attr (file-attributes tmp-name1))
@@ -622,7 +631,13 @@ This tests also `file-readable-p' and `file-regular-p'."
           (should (file-readable-p tmp-name3))
           (should-not (file-regular-p tmp-name3))
           (setq attr (file-attributes tmp-name3))
-          (should (eq (car attr) t)))
+          (should (eq (car attr) t))
+          (should-not (access-file tmp-name3 "error"))
+
+          ;; Check error case.
+          (should-error
+           (access-file tmp-name4  "error")
+           :type tramp-file-missing))
 
       ;; Cleanup.
       (tramp-archive-cleanup-hash))))
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 3eb424c62dc..3afe9ad557d 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -2730,7 +2730,14 @@ This tests also `file-directory-p' and `file-accessible-directory-p'."
                  (format
                   "\\(.+ %s\\( ->.+\\)?\n\\)\\{%d\\}"
                   (regexp-opt (directory-files tmp-name1))
-                  (length (directory-files tmp-name1))))))))
+                  (length (directory-files tmp-name1)))))))
+
+            ;; Check error case.  We do not check for the error type,
+            ;; because ls-lisp returns `file-error', and native Tramp
+            ;; returns `file-missing'.
+            (delete-directory tmp-name1 'recursive)
+            (with-temp-buffer
+              (should-error (insert-directory tmp-name1 nil))))
 
         ;; Cleanup.
         (ignore-errors (delete-directory tmp-name1 'recursive))))))
@@ -2856,8 +2863,8 @@ This tests also `file-directory-p' and `file-accessible-directory-p'."
 
 (ert-deftest tramp-test18-file-attributes ()
   "Check `file-attributes'.
-This tests also `file-readable-p', `file-regular-p' and
-`file-ownership-preserved-p'."
+This tests also `access-file', `file-readable-p',
+`file-regular-p' and `file-ownership-preserved-p'."
   (skip-unless (tramp--test-enabled))
 
   (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil)))
@@ -2878,6 +2885,9 @@ This tests also `file-readable-p', `file-regular-p' and
            attr)
       (unwind-protect
           (progn
+            (should-error
+             (access-file tmp-name1 "error")
+             :type tramp-file-missing)
             ;; `file-ownership-preserved-p' should return t for
             ;; non-existing files.  It is implemented only in tramp-sh.el.
             (when (tramp--test-sh-p)
@@ -2886,6 +2896,7 @@ This tests also `file-readable-p', `file-regular-p' and
             (should (file-exists-p tmp-name1))
             (should (file-readable-p tmp-name1))
             (should (file-regular-p tmp-name1))
+            (should-not (access-file tmp-name1 "error"))
             (when (tramp--test-sh-p)
               (should (file-ownership-preserved-p tmp-name1 'group)))
 
@@ -2910,11 +2921,15 @@ This tests also `file-readable-p', `file-regular-p' and
             (should (stringp (nth 3 attr))) ;; Gid.
 
             (tramp--test-ignore-make-symbolic-link-error
+             (should-error
+              (access-file tmp-name2 "error")
+              :type tramp-file-missing)
               (when (tramp--test-sh-p)
                 (should (file-ownership-preserved-p tmp-name2 'group)))
               (make-symbolic-link tmp-name1 tmp-name2)
               (should (file-exists-p tmp-name2))
               (should (file-symlink-p tmp-name2))
+              (should-not (access-file tmp-name2 "error"))
               (when (tramp--test-sh-p)
                 (should (file-ownership-preserved-p tmp-name2 'group)))
               (setq attr (file-attributes tmp-name2))
@@ -2953,6 +2968,7 @@ This tests also `file-readable-p', `file-regular-p' and
             (should (file-exists-p tmp-name1))
             (should (file-readable-p tmp-name1))
             (should-not (file-regular-p tmp-name1))
+            (should-not (access-file tmp-name1 ""))
             (when (tramp--test-sh-p)
               (should (file-ownership-preserved-p tmp-name1 'group)))
             (setq attr (file-attributes tmp-name1))
@@ -5590,8 +5606,8 @@ Since it unloads Tramp, it shall be the last test to run."
 ;; * Fix `tramp-test06-directory-file-name' for `ftp'.
 ;; * Investigate, why `tramp-test11-copy-file' and `tramp-test12-rename-file'
 ;;   do not work properly for `nextcloud'.
-;; * Fix `tramp-test29-start-file-process' on MS Windows (`process-send-eof'?).
-;; * Fix `tramp-test31-interrupt-process', timeout doesn't work reliably.
+;; * Fix `tramp-test29-start-file-process' and
+;;   `tramp-test30-make-process' on MS Windows (`process-send-eof'?).
 ;; * Fix Bug#16928 in `tramp-test43-asynchronous-requests'.
 
 (provide 'tramp-tests)