[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 66dc8dd 2/2: Add cond test cases for singleton clau
From: |
Vibhav Pant |
Subject: |
[Emacs-diffs] master 66dc8dd 2/2: Add cond test cases for singleton clauses. |
Date: |
Sat, 22 Apr 2017 12:37:51 -0400 (EDT) |
branch: master
commit 66dc8dd6d13d37ef23b52873293d95d87dca497f
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>
Add cond test cases for singleton clauses.
* test/lisp/emacs-lisp/bytecomp-tests.el: Add test cond forms where
the default clause is a single non-nil expression.
---
test/lisp/emacs-lisp/bytecomp-tests.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el
b/test/lisp/emacs-lisp/bytecomp-tests.el
index d0b9790..e8feec3 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -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.")