feature/native-comp af73986: Add a tmp dir to `comp-eln-load-path' when running the testsuite.

[Andrea Corallo]

branch: feature/native-comp
commit af739863b0a5fd3bbff048faef59b8feef45cca6
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    Add a tmp dir to `comp-eln-load-path' when running the testsuite.
    
        * lisp/startup.el (normal-top-level): Tweak `comp-eln-load-path'
        adding a temp directory when running the testsuite.
---
 lisp/startup.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/startup.el b/lisp/startup.el
index 7e8fa47..3e39ebc 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -537,13 +537,19 @@ It is the default value of the variable `top-level'."
          (startup--xdg-or-homedot startup--xdg-config-home-emacs nil))
 
     (when (featurep 'nativecomp)
+      ;; Form `comp-eln-load-path'.
       (defvar comp-eln-load-path)
       (let ((path-env (getenv "EMACSNATIVELOADPATH")))
         (when path-env
           (dolist (path (split-string path-env path-separator))
             (unless (string= "" path)
               (push path comp-eln-load-path)))))
-      (push (concat user-emacs-directory "eln-cache/") comp-eln-load-path))
+      (push (concat user-emacs-directory "eln-cache/") comp-eln-load-path)
+      ;; When $HOME is set to '/nonexistent' means we are running the
+      ;; testsuite, add a temporary folder in front to produce there
+      ;; new compilations.
+      (when (equal (getenv "HOME") "/nonexistent")
+        (push (make-temp-file "emacs-testsuite-" t) comp-eln-load-path)))
     ;; Look in each dir in load-path for a subdirs.el file.  If we
     ;; find one, load it, which will add the appropriate subdirs of
     ;; that dir into load-path.  This needs to be done before setting