blob: d6d445b587d0cf556a09004509b48da111cc0484 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
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
|
