diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/pcase-tests.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/automated/pcase-tests.el b/test/automated/pcase-tests.el index 7e3c40235e6..ec0c3bc7fd5 100644 --- a/test/automated/pcase-tests.el +++ b/test/automated/pcase-tests.el | |||
| @@ -58,6 +58,8 @@ | |||
| 58 | (should-not (pcase-tests-grep 'memq exp)) | 58 | (should-not (pcase-tests-grep 'memq exp)) |
| 59 | (should-not (pcase-tests-grep 'member exp)))) | 59 | (should-not (pcase-tests-grep 'member exp)))) |
| 60 | 60 | ||
| 61 | (ert-deftest pcase-tests-vectors () | ||
| 62 | (should (equal (pcase [1 2] (`[,x] 1) (`[,x ,y] (+ x y))) 3))) | ||
| 61 | 63 | ||
| 62 | ;; Local Variables: | 64 | ;; Local Variables: |
| 63 | ;; no-byte-compile: t | 65 | ;; no-byte-compile: t |