emacs-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]