[Emacs-diffs] master 2d1b774: * test/lisp/simple-tests.el (simple-tests-async-shell-command-30280):

[Glenn Morris]

branch: master
commit 2d1b774dbc31b753527321ae1e441d5e424a5265
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * test/lisp/simple-tests.el (simple-tests-async-shell-command-30280):
    Use the correct emacs executable, not first in PATH.
---
 test/lisp/simple-tests.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el
index 678d9b9..417aa64 100644
--- a/test/lisp/simple-tests.el
+++ b/test/lisp/simple-tests.el
@@ -533,7 +533,9 @@ See Bug#21722."
          (second (generate-new-buffer-name base))
          ;; `save-window-excursion' doesn't restore frame configurations.
          (pop-up-frames nil)
-         (inhibit-message t))
+         (inhibit-message t)
+         (emacs (expand-file-name invocation-name invocation-directory)))
+    (skip-unless (file-executable-p emacs))
     ;; Let `shell-command' create the buffer as needed.
     (kill-buffer first)
     (unwind-protect
@@ -544,7 +546,7 @@ See Bug#21722."
           ;; `accept-process-output' is called on the second command.
           (dolist (form '("(sleep-for 8)" "(message \"\")"))
             (async-shell-command (format "%s -Q -batch -eval '%s'"
-                                         invocation-name form)
+                                         emacs form)
                                  first))
           ;; First command should neither have nor display output.
           (let* ((buffer (get-buffer first))