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 4fc62482a0d65919f707e25a0546cefc0934ff90..dbc90771774b3e7e093ac8a69553f1b013229178 100644 (file)
--- 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 331e1cfed16862b08c99c108a1d117b04b97b017..4f4005bea66df46a9d33e05b3bc8fe9e686a54ac 100644 (file)
--- 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 #'<)))))