1 files changed, 41 insertions, 0 deletions
diff --git a/tests/test-text-config.el b/tests/test-text-config.el
new file mode 100644
index 00000000..96935e1b
--- /dev/null
+++ b/tests/test-text-config.el
@@ -0,0 +1,41 @@
+;;; test-text-config.el --- Tests for text-config -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Covers cj/prettify-compose-block-markers-p, the prettify-symbols compose
+;; predicate that forces org src-block markers (#+begin_src / #+end_src) to
+;; compose while deferring to the default predicate for everything else.
+
+;;; Code:
+
+(require 'ert)
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'text-config)
+
+(ert-deftest test-text-config-compose-markers-composes-begin-src ()
+  "Normal: the begin-src marker always composes.
+The bounds are arbitrary because the marker branch short-circuits before
+touching the buffer."
+  (should (cj/prettify-compose-block-markers-p 1 12 "#+begin_src")))
+
+(ert-deftest test-text-config-compose-markers-composes-end-and-upcased ()
+  "Boundary: the end marker and the upcased variants also compose."
+  (should (cj/prettify-compose-block-markers-p 1 10 "#+end_src"))
+  (should (cj/prettify-compose-block-markers-p 1 12 "#+BEGIN_SRC"))
+  (should (cj/prettify-compose-block-markers-p 1 10 "#+END_SRC")))
+
+(ert-deftest test-text-config-compose-markers-defers-for-non-markers ()
+  "Error: a non-marker match defers to the default predicate.
+The predicate must return exactly what `prettify-symbols-default-compose-p'
+returns for a symbol that is not a block marker, so `lambda' keeps the
+standard boundary check."
+  (with-temp-buffer
+    (insert "x lambda y")
+    (goto-char (point-min))
+    (re-search-forward "lambda")
+    (let ((start (match-beginning 0))
+          (end (match-end 0)))
+      (should (eq (cj/prettify-compose-block-markers-p start end "lambda")
+                  (prettify-symbols-default-compose-p start end "lambda"))))))
+
+(provide 'test-text-config)
+;;; test-text-config.el ends here