mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-26 07:00:35 -08:00
Code Issues Projects Releases Wiki Activity

crank optimizations while running native compiler test suite

Browse source
This commit is contained in:
Andrea Corallo 2019-09-09 12:55:51 +02:00
parent b9f37a2a09
commit 63ecf01d0b
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
test/src/comp-test-funcs.el
View file

@ -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

4
test/src/comp-tests.el
View file

@ -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 #'<)))))