1 files changed, 56 insertions, 0 deletions

diff --git a/.ai/scripts/tests/test-lint-org.el b/.ai/scripts/tests/test-lint-org.el
index 8e1ebc4..9328064 100644
--- a/.ai/scripts/tests/test-lint-org.el
+++ b/.ai/scripts/tests/test-lint-org.el
@@ -168,6 +168,31 @@ content
 #+end_src
 ")
 
+;; cj-comment annotation block — Craig's convention #+begin_src cj: comment.
+;; org-lint flags the language (cj:) as unknown and the comment header arg as
+;; both missing-colon and empty-value.  All three are false positives.
+(defconst lo-test--cj-comment-block "\
+* Heading
+
+#+begin_src cj: comment
+my annotation text
+#+end_src
+")
+
+;; cj-comment block alongside a real suspicious-language warning — verifies
+;; the cj suppression doesn't leak into other src blocks in the same file.
+(defconst lo-test--cj-comment-with-real-warning "\
+* Heading
+
+#+begin_src cj: comment
+my annotation
+#+end_src
+
+#+begin_src markdown
+real suspicious-language warning here
+#+end_src
+")
+
 ;; Mixed fixture — each category once.
 (defconst lo-test--mixed "\
 * Mixed
@@ -317,6 +342,37 @@ content
                     (lo-test--checkers judgments)))))
 
 ;;; ---------------------------------------------------------------------------
+;;; cj-comment block — Craig's annotation convention is silently suppressed
+
+(ert-deftest lo-cj-comment-block-emits-no-judgments ()
+  "Normal: a `#+begin_src cj: comment ...' block must not trigger the three
+false-positive warnings org-lint emits for it (unknown language, empty
+header-arg value, missing colon in header arg)."
+  (let* ((out (lo-test--run lo-test--cj-comment-block))
+         (res (plist-get out :result))
+         (judgments (lo-test--judgments (plist-get out :issues)))
+         (checkers (lo-test--checkers judgments)))
+    ;; File untouched, no fixes applied.
+    (should (equal lo-test--cj-comment-block res))
+    (should (= 0 (plist-get out :fixes)))
+    ;; None of the three false-positive checkers fired.
+    (should-not (member 'suspicious-language-in-src-block checkers))
+    (should-not (member 'empty-header-argument checkers))
+    (should-not (member 'wrong-header-argument checkers))))
+
+(ert-deftest lo-cj-comment-suppression-does-not-mask-real-warnings ()
+  "Boundary: the cj-comment suppression is scoped to cj-comment block openers
+only — a regular `#+begin_src markdown' in the same file still emits its
+suspicious-language judgment."
+  (let* ((out (lo-test--run lo-test--cj-comment-with-real-warning))
+         (judgments (lo-test--judgments (plist-get out :issues)))
+         (suspicious (cl-count 'suspicious-language-in-src-block
+                               (lo-test--checkers judgments))))
+    ;; Exactly one suspicious-language judgment — from the markdown block,
+    ;; not the cj-comment block.
+    (should (= 1 suspicious))))
+
+;;; ---------------------------------------------------------------------------
 ;;; --check mode
 
 (ert-deftest lo-check-mode-does-not-modify-file ()