Add eval-expression support.

[gnu-emacs-elpa] / test / context-coloring-test.el

diff --git a/test/context-coloring-test.el b/test/context-coloring-test.el
index cce22a307c9b4c8b753156c9525a5e55af1d1854..cf985c9208638144f197d6b970afff1bcc4c2439 100644 (file)
--- a/test/context-coloring-test.el
+++ b/test/context-coloring-test.el
@@ -234,6 +234,10 @@ ARGS)."
   :extension "el"
   :enable-context-coloring-mode t)
 
+(context-coloring-test-define-deftest eval-expression
+  :mode #'fundamental-mode
+  :no-fixture t)
+
 (context-coloring-test-define-deftest define-theme
   :mode #'fundamental-mode
   :no-fixture t
@@ -375,7 +379,7 @@ ARGS)."
           (funcall done)))
        (insert " ")
        (set-window-buffer (selected-window) (current-buffer))
-       (context-coloring-maybe-colorize (current-buffer))))
+       (context-coloring-maybe-colorize-with-buffer (current-buffer))))
     (context-coloring-mode))
   :after (lambda ()
            (setq context-coloring-colorize-hook nil)))
@@ -1268,6 +1272,29 @@ nnnnn n nnn nnnnnnnn")))
 1111 111
 nnnn nn")))
 
+(defun context-coloring-test-eval-expression-let ()
+  "Test that coloring works inside `eval-expression.'"
+  (let ((input "(ignore-errors (let (a) (message a free)))"))
+    (insert input)
+    (context-coloring-colorize)
+    (context-coloring-test-assert-coloring "
+xxxx: 0000000-000000 1111 111 11111111 1 0000110")))
+
+(context-coloring-test-deftest-eval-expression let
+  (lambda ()
+    (add-hook
+     'eval-expression-minibuffer-setup-hook
+     #'context-coloring-test-eval-expression-let)
+    (execute-kbd-macro
+     (vconcat
+      [?\C-u] ;; Don't output to stdout.
+      [?\M-x]
+      (vconcat "eval-expression"))))
+  :after (lambda ()
+           (remove-hook
+            'eval-expression-minibuffer-setup-hook
+            #'context-coloring-test-eval-expression-let)))
+
 (provide 'context-coloring-test)
 
 ;;; context-coloring-test.el ends here