From 66dc8dd6d13d37ef23b52873293d95d87dca497f Mon Sep 17 00:00:00 2001
From: Vibhav Pant <vibhavp@gmail.com>
Date: Sat, 22 Apr 2017 21:51:43 +0530
Subject: [PATCH] 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 d0b97907389..e8feec31d26 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.")
--
2.39.5