[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3481903: * Better identify native compiler presence in two tests.
From: |
Andrea Corallo |
Subject: |
master 3481903: * Better identify native compiler presence in two tests. |
Date: |
Wed, 5 May 2021 11:02:36 -0400 (EDT) |
branch: master
commit 3481903d136af4380b5ee22879500e0295da8eba
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Better identify native compiler presence in two tests.
* test/lisp/help-fns-tests.el (help-fns-test-lisp-defun)
(help-fns-test-lisp-defsubst): Better identify native-comp
presence.
---
test/lisp/help-fns-tests.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el
index 099d627..8a226c4 100644
--- a/test/lisp/help-fns-tests.el
+++ b/test/lisp/help-fns-tests.el
@@ -62,14 +62,14 @@ Return first line of the output of (describe-function-1
FUNC)."
(should (string-match regexp result))))
(ert-deftest help-fns-test-lisp-defun ()
- (let ((regexp (if (boundp 'comp-ctxt)
+ (let ((regexp (if (featurep 'nativecomp)
"a native compiled Lisp function in .+subr\\.el"
"a compiled Lisp function in .+subr\\.el"))
(result (help-fns-tests--describe-function 'last)))
(should (string-match regexp result))))
(ert-deftest help-fns-test-lisp-defsubst ()
- (let ((regexp (if (boundp 'comp-ctxt)
+ (let ((regexp (if (featurep 'nativecomp)
"a native compiled Lisp function in .+subr\\.el"
"a compiled Lisp function in .+subr\\.el"))
(result (help-fns-tests--describe-function 'posn-window)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3481903: * Better identify native compiler presence in two tests.,
Andrea Corallo <=