From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 9 Sep 2019 10:55:51 +0000 (+0200)
Subject: crank optimizations while running native compiler test suite
X-Git-Tag: emacs-28.0.90~2727^2~1186
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63ecf01d0b0897b948296eaaffd690290d536b72;p=emacs.git

crank optimizations while running native compiler test suite
---

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 4fc62482a0d..dbc90771774 100644
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -185,7 +185,6 @@
 (defun comp-tests-err-foo-f ()
   (error "foo"))
 
-;;FIXME: horrible...
 (defun comp-tests-condition-case-0-f ()
   ;; Bpushhandler Bpophandler
   (condition-case
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 331e1cfed16..4f4005bea66 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -29,7 +29,7 @@
 (require 'cl-lib)
 (require 'comp)
 
-(setq comp-speed 0)
+(setq comp-speed 3)
 
 (defconst comp-test-src
   (concat (file-name-directory (or load-file-name buffer-file-name))
@@ -205,7 +205,7 @@
 
 (ert-deftest comp-tests-bubble-sort ()
   "Run bubble sort."
-  (let* ((list1 (mapcar 'random (make-list 1000 most-positive-fixnum)))
+  (let* ((list1 (mapcar #'random (make-list 1000 most-positive-fixnum)))
          (list2 (copy-sequence list1)))
     (should (equal (comp-bubble-sort-f list1)
                    (sort list2 #'<)))))