From 63ecf01d0b0897b948296eaaffd690290d536b72 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 9 Sep 2019 12:55:51 +0200 Subject: [PATCH] crank optimizations while running native compiler test suite --- test/src/comp-test-funcs.el | 1 - test/src/comp-tests.el | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) 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 #'<))))) -- 2.39.5