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.

1 files changed, 7 insertions, 1 deletions

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