[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8cc7326 3/3: Fix compile time error in a pcase test
From: |
Stefan Kangas |
Subject: |
master 8cc7326 3/3: Fix compile time error in a pcase test |
Date: |
Wed, 22 Dec 2021 16:59:45 -0500 (EST) |
branch: master
commit 8cc7326d953db2006c41a8eb99ca2530a63cabda
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Fix compile time error in a pcase test
* test/lisp/emacs-lisp/pcase-tests.el (pcase-tests-cl-type): Fix test.
---
test/lisp/emacs-lisp/pcase-tests.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/test/lisp/emacs-lisp/pcase-tests.el
b/test/lisp/emacs-lisp/pcase-tests.el
index 7ad01e7..40ae980 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)