From: Noam Postavsky <npostavs@gmail.com>
Date: Wed, 17 Apr 2019 14:24:12 +0000 (-0400)
Subject: ; Fix files-tests-executable-find on w32 (Bug#35241)
X-Git-Tag: emacs-27.0.90~3229
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63a190a640f620f49b42e70e9e68f88e61c158b3;p=emacs.git

; Fix files-tests-executable-find on w32 (Bug#35241)

* test/lisp/files-tests.el (files-tests-executable-find): Make the
tmpfile end with one of exec-suffixes, so that it will be executable
on w32.
---

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 53e6e9064a1..ae8ea41a797 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -1221,7 +1221,7 @@ See <https://debbugs.gnu.org/19657#20>."
 (ert-deftest files-tests-executable-find ()
   "Test that `executable-find' works also with a relative or remote PATH.
 See <https://debbugs.gnu.org/35241>."
-  (let ((tmpfile (make-temp-file "files-test")))
+  (let ((tmpfile (make-temp-file "files-test" nil (car exec-suffixes))))
     (unwind-protect
         (progn
           (set-file-modes tmpfile #o777)