1 files changed, 98 insertions, 0 deletions
diff --git a/tests/test-transcription-counter.el b/tests/test-transcription-counter.el
new file mode 100644
index 00000000..fae353ba
--- /dev/null
+++ b/tests/test-transcription-counter.el
@@ -0,0 +1,98 @@
+;;; test-transcription-counter.el --- Tests for active transcription counting -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for cj/--count-active-transcriptions and modeline integration
+;; Categories: Normal cases, Boundary cases
+
+;;; Code:
+
+(require 'ert)
+(require 'transcription-config)
+
+;; ----------------------------- Normal Cases ----------------------------------
+
+(ert-deftest test-cj/--count-active-transcriptions-empty ()
+  "Test count when no transcriptions are active."
+  (let ((cj/transcriptions-list '()))
+    (should (= 0 (cj/--count-active-transcriptions)))))
+
+(ert-deftest test-cj/--count-active-transcriptions-one-running ()
+  "Test count with one running transcription."
+  (let ((cj/transcriptions-list
+         '((proc1 "file1.m4a" nil running))))
+    (should (= 1 (cj/--count-active-transcriptions)))))
+
+(ert-deftest test-cj/--count-active-transcriptions-multiple-running ()
+  "Test count with multiple running transcriptions."
+  (let ((cj/transcriptions-list
+         '((proc1 "file1.m4a" nil running)
+           (proc2 "file2.m4a" nil running)
+           (proc3 "file3.m4a" nil running))))
+    (should (= 3 (cj/--count-active-transcriptions)))))
+
+(ert-deftest test-cj/--count-active-transcriptions-mixed-status ()
+  "Test count excludes completed/errored transcriptions."
+  (let ((cj/transcriptions-list
+         '((proc1 "file1.m4a" nil running)
+           (proc2 "file2.m4a" nil complete)
+           (proc3 "file3.m4a" nil running)
+           (proc4 "file4.m4a" nil error))))
+    (should (= 2 (cj/--count-active-transcriptions)))))
+
+;; ----------------------------- Boundary Cases --------------------------------
+
+(ert-deftest test-cj/--count-active-transcriptions-only-complete ()
+  "Test count when all transcriptions are complete."
+  (let ((cj/transcriptions-list
+         '((proc1 "file1.m4a" nil complete)
+           (proc2 "file2.m4a" nil complete))))
+    (should (= 0 (cj/--count-active-transcriptions)))))
+
+(ert-deftest test-cj/--count-active-transcriptions-only-error ()
+  "Test count when all transcriptions errored."
+  (let ((cj/transcriptions-list
+         '((proc1 "file1.m4a" nil error)
+           (proc2 "file2.m4a" nil error))))
+    (should (= 0 (cj/--count-active-transcriptions)))))
+
+;; ----------------------------- Modeline Tests --------------------------------
+
+(ert-deftest test-cj/--transcription-modeline-string-none-active ()
+  "Test modeline string when no transcriptions active."
+  (let ((cj/transcriptions-list '()))
+    (should-not (cj/--transcription-modeline-string))))
+
+(ert-deftest test-cj/--transcription-modeline-string-one-active ()
+  "Test modeline string with one active transcription."
+  (let ((cj/transcriptions-list
+         '((proc1 "file1.m4a" nil running))))
+    (let ((result (cj/--transcription-modeline-string)))
+      (should result)
+      (should (string-match-p "⏺1" result)))))
+
+(ert-deftest test-cj/--transcription-modeline-string-multiple-active ()
+  "Test modeline string with multiple active transcriptions."
+  (let ((cj/transcriptions-list
+         '((proc1 "file1.m4a" nil running)
+           (proc2 "file2.m4a" nil running)
+           (proc3 "file3.m4a" nil running))))
+    (let ((result (cj/--transcription-modeline-string)))
+      (should result)
+      (should (string-match-p "⏺3" result)))))
+
+(ert-deftest test-cj/--transcription-modeline-string-has-help-echo ()
+  "Test that modeline string has help-echo property."
+  (let ((cj/transcriptions-list
+         '((proc1 "file1.m4a" nil running))))
+    (let ((result (cj/--transcription-modeline-string)))
+      (should (get-text-property 0 'help-echo result)))))
+
+(ert-deftest test-cj/--transcription-modeline-string-has-face ()
+  "Test that modeline string has warning face."
+  (let ((cj/transcriptions-list
+         '((proc1 "file1.m4a" nil running))))
+    (let ((result (cj/--transcription-modeline-string)))
+      (should (eq 'warning (get-text-property 0 'face result))))))
+
+(provide 'test-transcription-counter)
+;;; test-transcription-counter.el ends here