[Emacs-diffs] master 66dc8dd 2/2: Add cond test cases for singleton clauses.

[Vibhav Pant]

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