                                                                  (cdr pair))
                                                        (cadr pair))))))
                   ;; Add full path of user-dir.
+                  (setq plist (plist-put plist :executable executable))
                   (setq plist (plist-put plist :user-dir temp-dir))))
          (program (pp-to-string
                    ;; The top-level `let' is an intentional local

                           (alist-get :post-bootstrap keywords)))))
    `(let* ((,preserve-files    ,(car (alist-get :preserve keywords)))
            (,interactive       ,(car (alist-get :interactive keywords)))
            (,emacs-executable  ,(or (car (alist-get :executable keywords))
                                     "emacs"))
            (,emacs-args-symbol (append (unless ,interactive '("--batch"))
                                        ',straight-bug-report--default-args))
            (,raw               ,(car (alist-get :raw keywords)))

      immediately removed after the test is run.

  - :executable String
      Indicate the Emacs executable to launch.
      Defaults to the path of the current Emacs executable.

  - :raw Boolean
      If non-nil, the raw process output is sent to
