From 53d8eb07149a34e80ef61005b34d7a661fd00209 Mon Sep 17 00:00:00 2001 From: Fanael Linithien Date: Wed, 29 Oct 2014 21:30:57 +0100 Subject: [PATCH] Test if syntax table properties are ignored when the delim is blacklisted. --- rainbow-delimiters-test.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/rainbow-delimiters-test.el b/rainbow-delimiters-test.el index ecad714..80bb728 100644 --- 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