aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
Diffstat (limited to 'test/src')
-rw-r--r--test/src/comp-tests.el25
1 files changed, 13 insertions, 12 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index ed3a9b2f9d0..58846ed50d0 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -200,18 +200,19 @@
200 200
201 (should (= (comp-tests-ffuncall-lambda-f 1) 2))) 201 (should (= (comp-tests-ffuncall-lambda-f 1) 2)))
202 202
203;; (ert-deftest comp-tests-jump-table () 203(ert-deftest comp-tests-jump-table ()
204;; "Testing jump tables" 204 "Testing jump tables"
205;; (defun comp-tests-jump-table-1-f (x) 205 (defun comp-tests-jump-table-1-f (x)
206;; (pcase x 206 (pcase x
207;; ('x 'a) 207 ('x 'a)
208;; ('y 'b) 208 ('y 'b)
209;; (_ 'c))) 209 (_ 'c)))
210 210
211 211 (native-compile #'comp-tests-jump-table-1-f)
212;; (should (eq (comp-tests-jump-table-1-f 'x) 'a)) 212
213;; (should (eq (comp-tests-jump-table-1-f 'y) 'b)) 213 (should (eq (comp-tests-jump-table-1-f 'x) 'a))
214;; (should (eq (comp-tests-jump-table-1-f 'xxx) 'c))) 214 (should (eq (comp-tests-jump-table-1-f 'y) 'b))
215 (should (eq (comp-tests-jump-table-1-f 'xxx) 'c)))
215 216
216(ert-deftest comp-tests-conditionals () 217(ert-deftest comp-tests-conditionals ()
217 "Testing conditionals." 218 "Testing conditionals."