[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/byte-switch 96c4e36: Add tests for checking byte-s
From: |
Vibhav Pant |
Subject: |
[Emacs-diffs] feature/byte-switch 96c4e36: Add tests for checking byte-switch code. |
Date: |
Tue, 7 Feb 2017 14:13:11 +0000 (UTC) |
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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] feature/byte-switch 96c4e36: Add tests for checking byte-switch code.,
Vibhav Pant <=