* test/src/comp-tests.el (comp-tests-bootstrap): Print compilation time.

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index b147bd6789cbf5aed769b278b66affa0084a300a..220bf1c77361eef5d8569490066fb121ab19b6ac 100644 (file)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -58,11 +58,15 @@ Check that the resulting binaries do not differ."
       (load (concat comp-src "c") nil nil t t))
     (should-not (subr-native-elisp-p (symbol-function #'native-compile)))
     (message "Compiling stage1...")
-    (let ((comp1-eln (native-compile comp1-src)))
+    (let* ((t0 (current-time))
+           (comp1-eln (native-compile comp1-src)))
+      (message "Done in %d secs" (float-time (time-since t0)))
       (load comp1-eln nil nil t t)
       (should (subr-native-elisp-p (symbol-function 'native-compile)))
       (message "Compiling stage2...")
-      (let ((comp2-eln (native-compile comp2-src)))
+      (let ((t0 (current-time))
+            (comp2-eln (native-compile comp2-src)))
+        (message "Done in %d secs" (float-time (time-since t0)))
         (message "Comparing %s %s" comp1-eln comp2-eln)
         (should (= (call-process "cmp" nil nil nil comp1-eln comp2-eln) 0))))))