Test if syntax table properties are ignored when the delim is blackli…

…sted.
Fanael · Oct 29, 2014 · 53d8eb0 · 53d8eb0
1 parent 18b9410
commit 53d8eb0
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/rainbow-delimiters-test.el b/rainbow-delimiters-test.el
@@ -277,5 +277,17 @@
                2 3 (face (rainbow-delimiters-depth-2-face))
                3 4 (face (rainbow-delimiters-depth-1-face)))))))
 
+(ert-deftest syntax-table-entries-dont-work-when-blacklisted ()
+  (let ((rainbow-delimiters-delimiter-blacklist '(?a ?b)))
+    (with-temp-buffer-in-mode 'emacs-lisp-mode
+      (with-string (str #("(ab)"
+                          1 2 (syntax-table (4 . ?b))
+                          2 3 (syntax-table (5 . ?a))))
+        (should (ert-equal-including-properties
+                 (buffer-string-without-uninteresting-properties)
+                 #("(ab)"
+                   0 1 (face (rainbow-delimiters-depth-1-face))
+                   3 4 (face (rainbow-delimiters-depth-1-face)))))))))
+
 (provide 'rainbow-delimiters-test)
 ;;; rainbow-delimiters-test.el ends here