From: Stefan Kangas <stefan@marxist.se>
Date: Wed, 22 Dec 2021 21:40:51 +0000 (+0100)
Subject: Fix compile time error in a pcase test
X-Git-Tag: emacs-29.0.90~3495
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8cc7326d953db2006c41a8eb99ca2530a63cabda;p=emacs.git

Fix compile time error in a pcase test

* test/lisp/emacs-lisp/pcase-tests.el (pcase-tests-cl-type): Fix test.
---

diff --git a/test/lisp/emacs-lisp/pcase-tests.el b/test/lisp/emacs-lisp/pcase-tests.el
index 7ad01e7aef7..40ae9809b5f 100644
--- a/test/lisp/emacs-lisp/pcase-tests.el
+++ b/test/lisp/emacs-lisp/pcase-tests.el
@@ -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)