mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

Fix compile time error in a pcase test

Browse source 
* test/lisp/emacs-lisp/pcase-tests.el (pcase-tests-cl-type): Fix test.
This commit is contained in:
Stefan Kangas 2021-12-22 22:40:51 +01:00
parent 8d846b8f8e
commit 8cc7326d95
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test/lisp/emacs-lisp/pcase-tests.el
View file

@ -107,8 +107,11 @@
(should (equal (pcase 1
((cl-type (integer 0 2)) 'integer-0<=n<=2))
'integer-0<=n<=2))
(should-error (pcase 1
((cl-type notatype) 'integer))))
(should-error
;; Avoid error at compile time due to compiler macro.
(eval '(pcase 1
((cl-type notatype) 'integer))
t)))
(ert-deftest pcase-tests-setq ()
(should (equal (let (a b)