From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 5 May 2021 15:00:59 +0000 (+0200)
Subject: * Better identify native compiler presence in two tests.
X-Git-Tag: emacs-28.0.90~2604
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3481903d136af4380b5ee22879500e0295da8eba;p=emacs.git

* 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.
---

diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el
index 099d627f355..8a226c4a0ba 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)))