1 files changed, 98 insertions, 0 deletions
diff --git a/tests/test-video-audio-recording-parse-sources.el b/tests/test-video-audio-recording-parse-sources.el
new file mode 100644
index 00000000..d6d445b5
--- /dev/null
+++ b/tests/test-video-audio-recording-parse-sources.el
@@ -0,0 +1,98 @@
+;;; test-video-audio-recording-parse-sources.el --- Tests for cj/recording-parse-sources -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Unit tests for cj/recording-parse-sources function.
+;; Tests the wrapper that calls pactl and delegates to internal parser.
+;; Mocks shell-command-to-string to avoid system dependencies.
+
+;;; Code:
+
+(require 'ert)
+
+;; Stub dependencies before loading the module
+(defvar cj/custom-keymap (make-sparse-keymap)
+  "Stub keymap for testing.")
+
+;; Now load the actual production module
+(require 'video-audio-recording)
+
+;;; Test Fixtures Helper
+
+(defun test-load-fixture (filename)
+  "Load fixture file FILENAME from tests/fixtures directory."
+  (let ((fixture-path (expand-file-name
+                       (concat "tests/fixtures/" filename)
+                       user-emacs-directory)))
+    (with-temp-buffer
+      (insert-file-contents fixture-path)
+      (buffer-string))))
+
+;;; Normal Cases
+
+(ert-deftest test-video-audio-recording-parse-sources-normal-calls-pactl-and-parses ()
+  "Test that parse-sources calls shell command and returns parsed list."
+  (let ((fixture-output (test-load-fixture "pactl-output-normal.txt")))
+    (cl-letf (((symbol-function 'shell-command-to-string)
+               (lambda (_cmd) fixture-output)))
+      (let ((result (cj/recording-parse-sources)))
+        (should (listp result))
+        (should (= 6 (length result)))
+        ;; Verify it returns structured data
+        (should (equal "alsa_output.pci-0000_00_1f.3.analog-stereo.monitor"
+                       (car (nth 0 result))))
+        (should (equal "PipeWire" (nth 1 (nth 0 result))))
+        (should (equal "SUSPENDED" (nth 2 (nth 0 result))))))))
+
+(ert-deftest test-video-audio-recording-parse-sources-normal-single-device-returns-list ()
+  "Test parse-sources with single device."
+  (let ((fixture-output (test-load-fixture "pactl-output-single.txt")))
+    (cl-letf (((symbol-function 'shell-command-to-string)
+               (lambda (_cmd) fixture-output)))
+      (let ((result (cj/recording-parse-sources)))
+        (should (listp result))
+        (should (= 1 (length result)))))))
+
+;;; Boundary Cases
+
+(ert-deftest test-video-audio-recording-parse-sources-boundary-empty-output-returns-empty-list ()
+  "Test that empty pactl output returns empty list."
+  (cl-letf (((symbol-function 'shell-command-to-string)
+             (lambda (_cmd) "")))
+    (let ((result (cj/recording-parse-sources)))
+      (should (listp result))
+      (should (null result)))))
+
+(ert-deftest test-video-audio-recording-parse-sources-boundary-whitespace-output-returns-empty-list ()
+  "Test that whitespace-only output returns empty list."
+  (cl-letf (((symbol-function 'shell-command-to-string)
+             (lambda (_cmd) "  \n\t\n  ")))
+    (let ((result (cj/recording-parse-sources)))
+      (should (listp result))
+      (should (null result)))))
+
+;;; Error Cases
+
+(ert-deftest test-video-audio-recording-parse-sources-error-malformed-output-returns-empty-list ()
+  "Test that malformed output is handled gracefully."
+  (let ((fixture-output (test-load-fixture "pactl-output-malformed.txt")))
+    (cl-letf (((symbol-function 'shell-command-to-string)
+               (lambda (_cmd) fixture-output)))
+      (let ((result (cj/recording-parse-sources)))
+        (should (listp result))
+        (should (null result))))))
+
+(ert-deftest test-video-audio-recording-parse-sources-error-mixed-valid-invalid-returns-valid-only ()
+  "Test that mix of valid and invalid lines returns only valid entries."
+  (let ((mixed-output (concat
+                       "50\talsa_input.pci-0000_00_1f.3.analog-stereo\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"
+                       "invalid line\n"
+                       "79\tbluez_input.00:1B:66:C0:91:6D\tPipeWire\tfloat32le 1ch 48000Hz\tRUNNING\n")))
+    (cl-letf (((symbol-function 'shell-command-to-string)
+               (lambda (_cmd) mixed-output)))
+      (let ((result (cj/recording-parse-sources)))
+        (should (= 2 (length result)))
+        (should (equal "alsa_input.pci-0000_00_1f.3.analog-stereo" (car (nth 0 result))))
+        (should (equal "bluez_input.00:1B:66:C0:91:6D" (car (nth 1 result))))))))
+
+(provide 'test-video-audio-recording-parse-sources)
+;;; test-video-audio-recording-parse-sources.el ends here