[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/buttercup d67be6aed0 1/4: tests: Disable pre-Oclosure test
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/buttercup d67be6aed0 1/4: tests: Disable pre-Oclosure tests for Emacs 30+ |
Date: |
Wed, 17 Jul 2024 22:00:20 -0400 (EDT) |
branch: elpa/buttercup
commit d67be6aed082e19d26b5868ccbf5e49eca4c4698
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Ola Nilsson <ola.nilsson@gmail.com>
tests: Disable pre-Oclosure tests for Emacs 30+
Disable "a closure with expression copy?" when interpreted-function-p
is available. interpreted-function objects are not available unless
Oclosures are also supported. And if buttercup uses OClosures it
wont create interpreted-function objects in buttercup--wrap-expr-and-eval.
---
tests/test-buttercup.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index 1509835157..31a9fbbd4f 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -174,6 +174,10 @@ before it's processed by other functions."
(expect (buttercup--enclosed-expr (buttercup--wrap-expr-and-eval
'(ignore)))
:to-equal '(ignore)))
(it "a closure with expression copy?"
+ ;; This is for before Oclosures were added, and is not testable
+ ;; once interpreted-function types were added in Emacs 30.
+ (assume (not (fboundp 'interpreted-function-p))
+ "Not testable on Emacs 30+, not relevant for Emacs 29+")
(expect (buttercup--enclosed-expr
(let ((_foo 1))
(lambda () '(ignore) (buttercup--mark-stackframe) (ignore))))