fix comp-tests-bootstrap

1 files changed, 16 insertions, 11 deletions

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index b008dbd574e..55570d48a30 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -29,6 +29,9 @@
 (require 'cl-lib)
 (require 'comp)
 
+;; (setq comp-debug 1)
+(setq comp-speed 3)
+
 (defconst comp-test-directory (file-name-directory (or load-file-name
                                                        buffer-file-name)))
 (defconst comp-test-src
@@ -40,25 +43,27 @@
 (ert-deftest comp-tests-bootstrap ()
   "Compile the compiler and load it to compile it-self.
 Check that the resulting binaries do not differ."
-  (let ((comp-file (concat comp-test-directory
+  (let* ((comp-src (concat comp-test-directory
                            "../../lisp/emacs-lisp/comp.el"))
-        (comp1-file (concat temporary-file-directory
+         (comp1-src (concat temporary-file-directory
                             (make-temp-name "stage1-")
                             ".el"))
-        (comp2-file (concat temporary-file-directory
+         (comp2-src (concat temporary-file-directory
                             (make-temp-name "stage2-")
-                            ".el")))
-    (copy-file comp-file comp1-file)
-    (copy-file comp-file comp2-file)
-    (load (concat comp-file "c") nil nil t t)
+                            ".el"))
+         (comp1 (concat comp1-src "n"))
+         (comp2 (concat comp2-src "n")))
+    (copy-file comp-src comp1-src)
+    (copy-file comp-src comp2-src)
+    (load (concat comp-src "c") nil nil t t)
     (should (null (subr-native-elisp-p (symbol-function #'native-compile))))
     (message "Compiling stage1...")
-    (load (native-compile comp1-file) nil nil t t)
+    (load (native-compile comp1-src) nil nil t t)
     (should (subr-native-elisp-p (symbol-function 'native-compile)))
     (message "Compiling stage2...")
-    (native-compile comp2-file)
-    (message "Comparing %s %s" comp1-file comp2-file)
-    (should (= (call-process "cmp" nil nil nil comp1-file comp2-file) 0))))
+    (native-compile comp2-src)
+    (message "Comparing %s %s" comp1 comp2)
+    (should (= (call-process "cmp" nil nil nil comp1 comp2) 0))))
 
 (ert-deftest comp-tests-provide ()
   "Testing top level provide."