[nongnu] elpa/rainbow-delimiters 0441e7317b 151/188: Add a better escaped delimiter test case.

[ELPA Syncer]

branch: elpa/rainbow-delimiters
commit 0441e7317be9a25b26b63ef35b5d90f616fd80da
Author: Fanael Linithien <fana...@gmail.com>
Commit: Fanael Linithien <fana...@gmail.com>

    Add a better escaped delimiter test case.
---
 rainbow-delimiters-test.el | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/rainbow-delimiters-test.el b/rainbow-delimiters-test.el
index 0830976034..27c9ec56c7 100644
--- a/rainbow-delimiters-test.el
+++ b/rainbow-delimiters-test.el
@@ -193,7 +193,19 @@
     (should-do-nothing 'text-mode "(((())))")))
 
 (ert-deftest doesnt-highlight-escaped-delimiters ()
-  (should-do-nothing 'emacs-lisp-mode "?\("))
+  (with-temp-buffer-in-mode 'emacs-lisp-mode
+    (with-string (str "(bar ?\\( ?( (foo?))")
+      (should (ert-equal-including-properties
+               (buffer-string)
+               #("(bar ?\\( ?( (foo?))"
+                 0 1
+                 (face (rainbow-delimiters-depth-1-face))
+                 12 13
+                 (face (rainbow-delimiters-depth-2-face))
+                 17 18
+                 (face (rainbow-delimiters-depth-2-face))
+                 18 19
+                 (face (rainbow-delimiters-depth-1-face))))))))
 
 (ert-deftest cycles-faces ()
   (let ((rainbow-delimiters-max-face-count 2))