mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -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 (while l
a (setq l nil)) a (setq l nil))
'correct) '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. "List of expression for test.
Each element will be executed by interpreter and with Each element will be executed by interpreter and with
bytecompiled code, and their results compared.") bytecompiled code, and their results compared.")