From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 3 Oct 2020 18:57:57 +0000 (+0200)
Subject: * Fix two tests in help-fns-tests.el for native code
X-Git-Tag: emacs-28.0.90~2727^2~401
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0373bb838a032f97ae9317546e3b0117b97055a8;p=emacs.git

* Fix two tests in help-fns-tests.el for native code

	* test/lisp/help-fns-tests.el (help-fns-test-lisp-defun)
	(help-fns-test-lisp-defsubst): Fix description string
	for native compiled functions.
---

diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el
index 811b3677910..2f6abfb56dd 100644
--- a/test/lisp/help-fns-tests.el
+++ b/test/lisp/help-fns-tests.el
@@ -61,12 +61,16 @@ 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 "a compiled Lisp function in .subr\\.el")
+  (let ((regexp (if (boundp 'comp-ctxt)
+                    "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 "a compiled Lisp function in .subr\\.el")
+  (let ((regexp (if (boundp 'comp-ctxt)
+                    "a native compiled Lisp function in .subr\\.el"
+                  "a compiled Lisp function in .subr\\.el"))
         (result (help-fns-tests--describe-function 'posn-window)))
     (should (string-match regexp result))))