mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

Add cond test cases for singleton clauses.

Browse source 
* test/lisp/emacs-lisp/bytecomp-tests.el: Add test cond forms where
  the default clause is a single non-nil expression.
This commit is contained in:
Vibhav Pant 2017-04-22 21:51:43 +05:30
parent 1c91bc9221
commit 66dc8dd6d1
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -280,7 +280,13 @@
(while l
a (setq l nil))
'correct)
(t 'incorrect))))
(t 'incorrect)))
(let ((a))
(cond ((eq a 'foo) 'incorrect)
(t)))
(let ((a))
(cond ((eq a 'foo) 'incorrect)
('correct))))
"List of expression for test.
Each element will be executed by interpreter and with
bytecompiled code, and their results compared.")