masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-09 21:50:50 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

test/lisp/emacs-lisp/bytecomp-tests.el: Add more tests for switch.

Browse source
This commit is contained in:
Vibhav Pant 2017-02-13 13:18:54 +05:30
parent 219339e2eb
commit c24e8290fa
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -253,7 +253,12 @@ bytecompiled code, and their results compared.")
(let ((a 'three)) (cond ((eq a 'one) 1) ((eq a 2) 'two) ((eq a 'three) 3)
(t t)))
(let ((a 2)) (cond ((eq a 'one) 1) ((eq a 1) 'one) ((eq a 2) 'two)
(t nil))))
(t nil)))
(let ((a 2.0)) (cond ((eql a 2) 'incorrect) ((eql a 2.00) 'correct)))
(let ((a "foobar")) (cond ((equal "notfoobar" a) 'incorrect)
((equal 1 a) 'incorrect)
((equal a "foobar") 'correct)
(t 'incorrect))))
"List of expressions for testing byte-switch.")
(defun bytecomp-check-1 (pat)