From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 14 Sep 2020 20:59:41 +0000 (+0200)
Subject: * test/src/comp-tests.el (comp-tests-bootstrap): Print compilation time.
X-Git-Tag: emacs-28.0.90~2727^2~436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f37c18581ea1a36e9dcb5d4ac741aafb0398ebe;p=emacs.git

* 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 b147bd6789c..220bf1c7736 100644
--- 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))))))