[Emacs-diffs] feature/byte-switch c24e829: test/lisp/emacs-lisp/bytecomp-tests.el: Add more tests for switch.

[Vibhav Pant]

branch: feature/byte-switch
commit c24e8290fa4ec18c04cbedffbe741b53de280dd6
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>

    test/lisp/emacs-lisp/bytecomp-tests.el: Add more tests for switch.
---
 test/lisp/emacs-lisp/bytecomp-tests.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el 
b/test/lisp/emacs-lisp/bytecomp-tests.el
index 2233b28..acf9343 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -253,7 +253,12 @@ bytecompiled code, and their results compared.")
     (let ((a 'three)) (cond ((eq a 'one) 1) ((eq a 2) 'two) ((eq a 'three) 3)
                             (t t)))
     (let ((a 2)) (cond ((eq a 'one) 1) ((eq a 1) 'one) ((eq a 2) 'two)
-                       (t nil))))
+                       (t nil)))
+    (let ((a 2.0)) (cond ((eql a 2) 'incorrect) ((eql a 2.00) 'correct)))
+    (let ((a "foobar")) (cond ((equal "notfoobar" a) 'incorrect)
+                              ((equal 1 a) 'incorrect)
+                              ((equal a "foobar") 'correct)
+                              (t 'incorrect))))
   "List of expressions for testing byte-switch.")
 
 (defun bytecomp-check-1 (pat)