From: Stefan Kangas <stefan@marxist.se>
Date: Fri, 22 Jul 2022 22:06:38 +0000 (+0200)
Subject: Adjust help-fns.el tests for recent change
X-Git-Tag: emacs-28.1.91~26
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae1ace1cf4a8b0624f72a8f76e702d78b643ea32;p=emacs.git

Adjust help-fns.el tests for recent change

* test/lisp/help-fns-tests.el (help-fns-test-lisp-defun)
(help-fns-test-lisp-defsubst): Adjust tests for recent change.
---

diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el
index 4002501ddee..3132a590231 100644
--- a/test/lisp/help-fns-tests.el
+++ b/test/lisp/help-fns-tests.el
@@ -63,13 +63,13 @@ Return first line of the output of (describe-function-1 FUNC)."
 
 (ert-deftest help-fns-test-lisp-defun ()
   (let ((regexp (if (featurep 'native-compile)
-                    "a native compiled Lisp function in .+subr\\.el"
-                  "a compiled Lisp function in .+subr\\.el"))
+                    "a native-compiled Lisp function in .+subr\\.el"
+                  "a byte-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 "a byte-compiled Lisp function in .+subr\\.el")
         (result (help-fns-tests--describe-function 'posn-window)))
     (should (string-match regexp result))))