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 702058924d26d8ec75ec0bf33b5e8642e2473b7c..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
@@ -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