diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-08-12 11:04:30 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-08-12 11:04:30 -0400 |
| commit | 96d83a854673797952e678796e2165c187a24f54 (patch) | |
| tree | dc1ab81b1c0f6acda9add3cde33491596399309a /test | |
| parent | 0a611a5d7fa4e1186f98a2f98da2d000a87c8b9b (diff) | |
| download | emacs-96d83a854673797952e678796e2165c187a24f54.tar.gz | |
* lisp/emacs-lisp/pcase.el (pcase-setq): Align its semantics with `pcase-let`
* test/lisp/emacs-lisp/pcase-tests.el (pcase-tests-setq): Rename from
pcase-setq and ajust accordingly.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/emacs-lisp/pcase-tests.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/test/lisp/emacs-lisp/pcase-tests.el b/test/lisp/emacs-lisp/pcase-tests.el index 67882d00d86..7ad01e7aef7 100644 --- a/test/lisp/emacs-lisp/pcase-tests.el +++ b/test/lisp/emacs-lisp/pcase-tests.el @@ -110,21 +110,16 @@ (should-error (pcase 1 ((cl-type notatype) 'integer)))) -(ert-deftest pcase-setq () - (should (equal (let (a b) - (pcase-setq `(,a ,b) nil) - (list a b)) - (list nil nil))) - +(ert-deftest pcase-tests-setq () (should (equal (let (a b) (pcase-setq `((,a) (,b)) '((1) (2))) (list a b)) (list 1 2))) - (should (equal (list 'unset 'unset) + (should (equal (list nil nil) (let ((a 'unset) (b 'unset)) - (pcase-setq `(,a ,b) nil) + (pcase-setq `(head ,a ,b) nil) (list a b)))) (should (equal (let (a b) @@ -132,6 +127,10 @@ (list a b)) '(1 2))) + (should-error (let (a b) + (pcase-setq `[,a ,b] nil) + (list a b))) + (should (equal (let (a b) (pcase-setq a 1 b 2) (list a b)) |