refactor(transcription): extract init-log-file and track-transcription

Pull two more helpers out of cj/--start-transcription-process:
- cj/--init-log-file: writes the initial log header with timestamp,
  backend, audio file, script path
- cj/--track-transcription: pushes a running-status entry and refreshes
  the modeline

Start-process shrinks from 58 lines with 4 levels of nesting to ~25 lines
mostly at depth 1-2. 10 tests cover the extracted helpers.

1 files changed, 116 insertions, 0 deletions

diff --git a/tests/test-transcription-start-helpers.el b/tests/test-transcription-start-helpers.el
new file mode 100644
index 00000000..f52d2066
--- /dev/null
+++ b/tests/test-transcription-start-helpers.el
@@ -0,0 +1,116 @@
+;;; test-transcription-start-helpers.el --- Tests for process-start helpers -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for the two helpers extracted from `cj/--start-transcription-process':
+;; - `cj/--init-log-file' (writes the initial log header)
+;; - `cj/--track-transcription' (pushes an entry onto the active list)
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+
+(defvar cj/custom-keymap (make-sparse-keymap))
+
+(unless (fboundp 'notifications-notify)
+  (defun notifications-notify (&rest _args) nil))
+
+(require 'transcription-config)
+
+(defmacro test-start-helpers-with-temp-log (var &rest body)
+  "Bind VAR to a fresh temp log-file path and run BODY, cleaning up after."
+  (declare (indent 1))
+  `(let ((,var (make-temp-file "transcription-log-" nil ".log")))
+     (unwind-protect
+         (progn ,@body)
+       (when (file-exists-p ,var) (delete-file ,var)))))
+
+(defun test-start-helpers-file-contents (path)
+  "Return contents of PATH as a string."
+  (with-temp-buffer
+    (insert-file-contents path)
+    (buffer-string)))
+
+;;; cj/--init-log-file — Normal Cases
+
+(ert-deftest test-init-log-file-normal-creates-file ()
+  "The log file exists after `cj/--init-log-file' runs."
+  (test-start-helpers-with-temp-log log-file
+    (delete-file log-file)  ; start from a clean slate
+    (cj/--init-log-file log-file "/tmp/foo.m4a" "/tmp/script")
+    (should (file-exists-p log-file))))
+
+(ert-deftest test-init-log-file-normal-records-audio-path ()
+  "Log header includes the full AUDIO-FILE path."
+  (test-start-helpers-with-temp-log log-file
+    (cj/--init-log-file log-file "/tmp/foo.m4a" "/tmp/script")
+    (should (string-match-p "Audio file: /tmp/foo\\.m4a"
+                            (test-start-helpers-file-contents log-file)))))
+
+(ert-deftest test-init-log-file-normal-records-script-path ()
+  "Log header includes the SCRIPT path."
+  (test-start-helpers-with-temp-log log-file
+    (cj/--init-log-file log-file "/tmp/foo.m4a" "/usr/local/bin/whisper")
+    (should (string-match-p "Script: /usr/local/bin/whisper"
+                            (test-start-helpers-file-contents log-file)))))
+
+(ert-deftest test-init-log-file-normal-records-backend ()
+  "Log header includes the current `cj/transcribe-backend' value."
+  (test-start-helpers-with-temp-log log-file
+    (let ((cj/transcribe-backend 'local-whisper))
+      (cj/--init-log-file log-file "/tmp/foo.m4a" "/tmp/script"))
+    (should (string-match-p "Backend: local-whisper"
+                            (test-start-helpers-file-contents log-file)))))
+
+(ert-deftest test-init-log-file-normal-records-start-timestamp ()
+  "Log header begins with a `Transcription started:' line."
+  (test-start-helpers-with-temp-log log-file
+    (cj/--init-log-file log-file "/tmp/foo.m4a" "/tmp/script")
+    (should (string-match-p "Transcription started:"
+                            (test-start-helpers-file-contents log-file)))))
+
+;;; cj/--init-log-file — Boundary Cases
+
+(ert-deftest test-init-log-file-boundary-overwrites-existing ()
+  "An existing log file is overwritten (not appended to)."
+  (test-start-helpers-with-temp-log log-file
+    (with-temp-file log-file (insert "STALE CONTENT\n"))
+    (cj/--init-log-file log-file "/tmp/foo.m4a" "/tmp/script")
+    (should-not (string-match-p "STALE CONTENT"
+                                (test-start-helpers-file-contents log-file)))))
+
+;;; cj/--track-transcription — Normal Cases
+
+(ert-deftest test-track-transcription-normal-adds-entry-to-list ()
+  "A call to `cj/--track-transcription' pushes one entry."
+  (let ((cj/transcriptions-list '()))
+    (cj/--track-transcription 'proc1 "/tmp/foo.m4a")
+    (should (= 1 (length cj/transcriptions-list)))))
+
+(ert-deftest test-track-transcription-normal-entry-shape ()
+  "Pushed entry is (PROC AUDIO-FILE TIME running)."
+  (let ((cj/transcriptions-list '()))
+    (cj/--track-transcription 'proc1 "/tmp/foo.m4a")
+    (let ((entry (car cj/transcriptions-list)))
+      (should (eq 'proc1 (nth 0 entry)))
+      (should (equal "/tmp/foo.m4a" (nth 1 entry)))
+      (should (nth 2 entry))          ; start-time is non-nil
+      (should (eq 'running (nth 3 entry))))))
+
+(ert-deftest test-track-transcription-normal-multiple-entries-accumulate ()
+  "Multiple calls accumulate onto the list."
+  (let ((cj/transcriptions-list '()))
+    (cj/--track-transcription 'p1 "/a.m4a")
+    (cj/--track-transcription 'p2 "/b.m4a")
+    (cj/--track-transcription 'p3 "/c.m4a")
+    (should (= 3 (length cj/transcriptions-list)))))
+
+(ert-deftest test-track-transcription-normal-preserves-existing-entries ()
+  "Pre-existing entries in the list are not disturbed."
+  (let ((cj/transcriptions-list '((old-proc "/old.m4a" nil complete))))
+    (cj/--track-transcription 'new-proc "/new.m4a")
+    (should (= 2 (length cj/transcriptions-list)))
+    (should (member '(old-proc "/old.m4a" nil complete) cj/transcriptions-list))))
+
+(provide 'test-transcription-start-helpers)
+;;; test-transcription-start-helpers.el ends here