; Fix recently broken test (bug#77777).

* test/lisp/emacs-lisp/find-func-tests.el
(find-func-tests--locate-macro-generated-symbols): bind
'trusted-content' to names of files in which we want to
expand macros during this test.

(cherry picked from commit ebaf4241263e167e992981efb8d1bf571f311803)

diff --git a/test/lisp/emacs-lisp/find-func-tests.el b/test/lisp/emacs-lisp/find-func-tests.el
index 884e698bc762062bd136a138f4800a47ceeb3cad..325430196b4e082b9f339181fec899fa281a5814 100644 (file)
--- a/test/lisp/emacs-lisp/find-func-tests.el
+++ b/test/lisp/emacs-lisp/find-func-tests.el
@@ -103,10 +103,13 @@ expected function symbol and function library, respectively."
 (declare-function compilation--message->loc nil "compile")
 
 (ert-deftest find-func-tests--locate-macro-generated-symbols () ;bug#45443
-  (should (cdr (find-function-search-for-symbol
-                #'compilation--message->loc nil "compile")))
-  (should (cdr (find-function-search-for-symbol
-                'c-mode-hook 'defvar "cc-mode"))))
+  (let ((trusted-content
+         (list (abbreviate-file-name (find-library-name "compile"))
+               (abbreviate-file-name (find-library-name "cc-mode")))))
+    (should (cdr (find-function-search-for-symbol
+                  #'compilation--message->loc nil "compile")))
+    (should (cdr (find-function-search-for-symbol
+                  'c-mode-hook 'defvar "cc-mode")))))
 
 (provide 'find-func-tests)
 ;;; find-func-tests.el ends here