From: Vibhav Pant <vibhavp@gmail.com>
Date: Sat, 22 Apr 2017 16:21:43 +0000 (+0530)
Subject: Add cond test cases for singleton clauses.
X-Git-Tag: emacs-26.0.90~521^2~574
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66dc8dd6d13d37ef23b52873293d95d87dca497f;p=emacs.git

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.
---

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.")