[Emacs-diffs] feature/byte-switch 96c4e36: Add tests for checking byte-switch code.

[Vibhav Pant]

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

    Add tests for checking byte-switch code.
    
    * test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-cond): New test,
      test byte-switch bytecode.
---
 test/lisp/emacs-lisp/bytecomp-tests.el |   14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el 
b/test/lisp/emacs-lisp/bytecomp-tests.el
index bc47c82..2233b28 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -247,6 +247,15 @@
 Each element will be executed by interpreter and with
 bytecompiled code, and their results compared.")
 
+(defconst byte-opt-testsuite-cond-data
+  '(
+    (let ((a 3)) (cond ((eq a 1) 'one) ((eq a 2) 'two) ((eq a 3) 'three) (t 
t)))
+    (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))))
+  "List of expressions for testing byte-switch.")
+
 (defun bytecomp-check-1 (pat)
   "Return non-nil if PAT is the same whether directly evalled or compiled."
   (let ((warning-minimum-log-level :emergency)
@@ -276,6 +285,11 @@ bytecompiled code, and their results compared.")
   (dolist (pat byte-opt-testsuite-arith-data)
     (should (bytecomp-check-1 pat))))
 
+(ert-deftest bytecomp-cond ()
+  "Test the Emacs byte compiler."
+  (dolist (pat byte-opt-testsuite-cond-data)
+    (should (bytecomp-check-1 pat))))
+
 (defun test-byte-opt-arithmetic (&optional arg)
   "Unit test for byte-opt arithmetic operations.
 Subtests signal errors if something goes wrong."