From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 17 Jul 2025 07:26:17 +0000 (+0300)
Subject: ; * test/src/fileio-tests.el (fileio-tests--read-directory): New test.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e049561a3b6fcb6e296ece6828fd8d4485cb7c44;p=emacs.git

; * test/src/fileio-tests.el (fileio-tests--read-directory): New test.

(cherry picked from commit 29324fd0fa3755028466966b6eeb3cd0df1b442f)
---

diff --git a/test/src/fileio-tests.el b/test/src/fileio-tests.el
index b6302c35fee..066dd901434 100644
--- a/test/src/fileio-tests.el
+++ b/test/src/fileio-tests.el
@@ -195,6 +195,21 @@ Also check that an encoding error can appear in a symlink."
     (insert-file-contents "/dev/urandom" nil nil 10)
     (should (= (buffer-size) 10))))
 
+(ert-deftest fileio-tests--read-directory ()
+  "Make sure insertring a directory fails with a platform-independent error."
+  (ert-with-temp-directory dir
+    (let* ((dir-name (directory-file-name dir))
+           (err (should-error (insert-file-contents dir-name)))
+           (desc-string
+            (if (eq system-type 'windows-nt)
+                "Opening input file"
+              "Read error")))
+      (should (equal err
+                     (list 'file-error
+                           desc-string
+                           "Is a directory"
+                           dir-name))))))
+
 (defun fileio-tests--identity-expand-handler (_ file &rest _)
   file)
 (put 'fileio-tests--identity-expand-handler 'operations '(expand-file-name))