; Add semantic highlighting test with 'when-let*'

* test/lisp/progmodes/elisp-mode-resources/semantic-highlighting.el:
Add test form with 'when-let*'.
* test/lisp/progmodes/elisp-mode-tests.el (elisp-test-font-lock):
Trust temporary test buffer.

2 files changed, 15 insertions, 4 deletions

diff --git a/test/lisp/progmodes/elisp-mode-resources/semantic-highlighting.el b/test/lisp/progmodes/elisp-mode-resources/semantic-highlighting.el
index d72e8d49fb4..e07438a2fc5 100644
--- a/test/lisp/progmodes/elisp-mode-resources/semantic-highlighting.el
+++ b/test/lisp/progmodes/elisp-mode-resources/semantic-highlighting.el
@@ -111,3 +111,13 @@
 ;;                 ^ elisp-macro-call
       (foo))))
 ;;     ^ elisp-macro-call
+
+(when-let* ((foo (symbol-at-point))
+;; ^ (elisp-macro-call font-lock-keyword-face)
+;;           ^ elisp-binding-variable
+
+            ((commandp foo)))
+;;            ^ elisp-function-reference
+;;                     ^ elisp-bound-variable
+  foo)
+;; ^ elisp-bound-variable
diff --git a/test/lisp/progmodes/elisp-mode-tests.el b/test/lisp/progmodes/elisp-mode-tests.el
index e7ae7bb79ba..0e1bff600b1 100644
--- a/test/lisp/progmodes/elisp-mode-tests.el
+++ b/test/lisp/progmodes/elisp-mode-tests.el
@@ -1149,10 +1149,11 @@ evaluation of BODY."
     (should-error (scan-sexps (+ (point-min) 3) 1))))
 
 (ert-deftest elisp-test-font-lock ()
-  (let ((elisp-fontify-semantically t))
-    (ert-font-lock-test-file
-     (ert-resource-file "semantic-highlighting.el")
-     'emacs-lisp-mode)))
+  (ert-font-lock-test-file (ert-resource-file "semantic-highlighting.el")
+                           (lambda ()
+                             (emacs-lisp-mode)
+                             (setq-local trusted-content :all
+                                         elisp-fontify-semantically t))))
 
 (provide 'elisp-mode-tests)
 ;;; elisp-mode-tests.el ends here