1 files changed, 57 insertions, 0 deletions
diff --git a/tests/test-org-drill-cloze-regex-single-line.el b/tests/test-org-drill-cloze-regex-single-line.el
new file mode 100644
index 0000000..bd13269
--- /dev/null
+++ b/tests/test-org-drill-cloze-regex-single-line.el
@@ -0,0 +1,57 @@
+;;; test-org-drill-cloze-regex-single-line.el --- Regression for #38  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Upstream issue #38 (2021-01).  When `org-drill-use-visible-cloze-face-p'
+;; was non-nil, the cloze face leaked onto unrelated org headings.
+;; Root cause: the cloze regex's inner character class included
+;; `[:cntrl:]' / `[:space:]' which contain newline.  A stray `[' could
+;; match all the way to a `]' several lines later, covering org
+;; headings in between with the visible-cloze face.
+;;
+;; Fix: restrict the inner match to non-newline characters so a cloze
+;; stays within a single line — the intended scope.
+
+;;; Code:
+
+(require 'ert)
+(require 'org-drill)
+
+;;;; Regression — #38
+
+(ert-deftest test-cloze-regex-doesnt-span-newlines ()
+  "A `[' on one line followed by `]' two lines later should NOT match
+as a single cloze.  Pre-fix this matched the entire span, which is
+what caused the heading-face bleed."
+  (let ((re (org-drill--compute-cloze-regexp)))
+    (with-temp-buffer
+      (insert "Line one [some text\nLine two\nLine three] more")
+      (goto-char (point-min))
+      (should-not (re-search-forward re nil t)))))
+
+(ert-deftest test-cloze-regex-still-matches-single-line-cloze ()
+  "Single-line clozes still match — the fix doesn't break the happy path."
+  (let ((re (org-drill--compute-cloze-regexp)))
+    (with-temp-buffer
+      (insert "Capital of France is [Paris].")
+      (goto-char (point-min))
+      (should (re-search-forward re nil t))
+      (should (equal "[Paris]" (match-string 0))))))
+
+(ert-deftest test-cloze-regex-multiline-buffer-finds-only-line-bounded-cloze ()
+  "In a buffer with multiple lines and a single-line cloze on each,
+each cloze is matched independently — no spans across lines."
+  (let ((re (org-drill--compute-cloze-regexp)))
+    (with-temp-buffer
+      (insert "Line A: [foo]\n* Heading\nLine B: [bar]\n")
+      (goto-char (point-min))
+      (let ((matches nil))
+        (while (re-search-forward re nil t)
+          (push (match-string 0) matches))
+        (should (member "[foo]" matches))
+        (should (member "[bar]" matches))
+        ;; And exactly two matches — no spurious span across the heading.
+        (should (= 2 (length matches)))))))
+
+(provide 'test-org-drill-cloze-regex-single-line)
+
+;;; test-org-drill-cloze-regex-single-line.el ends here