* lisp/emacs-lisp/pcase.el: Allow (F . ARGS) in `app' patterns.

[gnu-emacs] / test / automated / pcase-tests.el

diff --git a/test/automated/pcase-tests.el b/test/automated/pcase-tests.el
index 7e3c40235e60a72100f9250ecb0b87a43c7fd0f5..ec0c3bc7fd5bbf1b802444155efe6fde4c60c6ca 100644 (file)
--- a/test/automated/pcase-tests.el
+++ b/test/automated/pcase-tests.el
@@ -58,6 +58,8 @@
     (should-not (pcase-tests-grep 'memq exp))
     (should-not (pcase-tests-grep 'member exp))))
 
+(ert-deftest pcase-tests-vectors ()
+  (should (equal (pcase [1 2] (`[,x] 1) (`[,x ,y] (+ x y))) 3)))
 
 ;; Local Variables:
 ;; no-byte-compile: t