mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix mistakes in bytecomp-tests

Browse source 
* test/lisp/emacs-lisp/bytecomp-tests.el
(byte-opt-testsuite-arith-data): Fix typos and avoid errors that made
the tests less powerful than intended.
This commit is contained in:
Mattias Engdegård 2021-04-07 13:11:43 +02:00
parent c1173f231d
commit 55f0576ebd
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
test/lisp/emacs-lisp/bytecomp-tests.el
View file

@ -364,17 +364,17 @@
'((a c) (b c) (7 c) (-3 c) (nil nil) (t c) (q c) (r c) (s c)
(t c) (x "a") (x "c") (x c) (x d) (x e)))
(mapcar (lambda (x) (cond ((member '(a . b) x) 1)
((equal x '(c)) 2)))
(mapcar (lambda (x) (ignore-errors (cond ((member '(a . b) x) 1)
((equal x '(c)) 2))))
'(((a . b)) a b (c) (d)))
(mapcar (lambda (x) (cond ((memq '(a . b) x) 1)
((equal x '(c)) 2)))
(mapcar (lambda (x) (ignore-errors (cond ((memq '(a . b) x) 1)
((equal x '(c)) 2))))
'(((a . b)) a b (c) (d)))
(mapcar (lambda (x) (cond ((member '(a b) x) 1)
((equal x '(c)) 2)))
(mapcar (lambda (x) (ignore-errors (cond ((member '(a b) x) 1)
((equal x '(c)) 2))))
'(((a b)) a b (c) (d)))
(mapcar (lambda (x) (cond ((memq '(a b) x) 1)
((equal x '(c)) 2)))
(mapcar (lambda (x) (ignore-errors (cond ((memq '(a b) x) 1)
((equal x '(c)) 2))))
'(((a b)) a b (c) (d)))
(assoc 'b '((a 1) (b 2) (c 3)))
@ -396,7 +396,7 @@
x)
(let ((x 1) (bytecomp-test-var 2) (y 3))
(list x bytecomp-test-var (bytecomp-get-test-var) y))
(list x bytecomp-test-var (bytecomp-test-get-var) y))
(progn
(defvar d)
@ -430,7 +430,7 @@
(list s x i))
(let ((x 2))
(list (or (bytecomp-identity 'a) (setq x 3)) x)))
(list (or (bytecomp-test-identity 'a) (setq x 3)) x)))
"List of expression for test.
Each element will be executed by interpreter and with
bytecompiled code, and their results compared.")