From a46f8af939b112b603a2c95b2e83a1932b208e20 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Thu, 26 Feb 2026 22:41:46 -0600 Subject: 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). --- tests/test-video-audio-recording--get-available-sinks.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'tests/test-video-audio-recording--get-available-sinks.el') 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 -- cgit v1.2.3