jump table support

1 files changed, 15 insertions, 0 deletions

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index d732d558cdd..b6a8904347f 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -218,6 +218,21 @@
 
   (should (= (comp-tests-ffuncall-lambda-f 1) 2)))
 
+(ert-deftest  comp-tests-jump-table ()
+  "Testing jump tables"
+  (defun comp-tests-jump-table-1-f (x)
+    (pcase x
+      ('x 'a)
+      ('y 'b)
+      (_ 'c)))
+
+  (byte-compile #'comp-tests-jump-table-1-f)
+  (byte-compile #'comp-tests-jump-table-1-f)
+
+  (should (eq (comp-tests-jump-table-1-f 'x) 'a))
+  (should (eq (comp-tests-jump-table-1-f 'y) 'b))
+  (should (eq (comp-tests-jump-table-1-f 'xxx) 'c)))
+
 (ert-deftest  comp-tests-conditionals ()
   "Testing conditionals."
   (defun comp-tests-conditionals-1-f (x)