test(recording): add tests for label-devices, label-sinks, get-sink-apps

Fill test gaps from quality-engineer review: 3 new test files (28 tests)
and error cases for get-available-mics and get-available-sinks (+4 tests).

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/test-video-audio-recording--get-available-sinks.el b/tests/test-video-audio-recording--get-available-sinks.el
index 2f0d965c..62d9a41a 100644
--- a/tests/test-video-audio-recording--get-available-sinks.el
+++ b/tests/test-video-audio-recording--get-available-sinks.el
@@ -86,5 +86,21 @@ Each sink is (name description mute state)."
              (lambda (_cmd) "")))
     (should (null (cj/recording--get-available-sinks)))))
 
+;;; Error Cases
+
+(ert-deftest test-get-available-sinks-error-garbled-output ()
+  "Test that garbled pactl output returns empty list, not an error."
+  (cl-letf (((symbol-function 'shell-command-to-string)
+             (lambda (_cmd) "random garbage\nwith newlines\nbut no structure\n")))
+    (should (null (cj/recording--get-available-sinks)))))
+
+(ert-deftest test-get-available-sinks-error-missing-fields ()
+  "Test that sink with partial fields does not crash."
+  (cl-letf (((symbol-function 'shell-command-to-string)
+             (lambda (_cmd) "Sink #1\n\tState: RUNNING\n\tName: partial-sink\n")))
+    ;; Missing Description and Mute — should not error
+    (let ((sinks (cj/recording--get-available-sinks)))
+      (should (listp sinks)))))
+
 (provide 'test-video-audio-recording--get-available-sinks)
 ;;; test-video-audio-recording--get-available-sinks.el ends here