diff options
Diffstat (limited to 'tests/test-video-audio-recording-quick-setup.el')
| -rw-r--r-- | tests/test-video-audio-recording-quick-setup.el | 166 |
1 files changed, 116 insertions, 50 deletions
diff --git a/tests/test-video-audio-recording-quick-setup.el b/tests/test-video-audio-recording-quick-setup.el index 23314bd5..154ad26e 100644 --- a/tests/test-video-audio-recording-quick-setup.el +++ b/tests/test-video-audio-recording-quick-setup.el @@ -3,10 +3,10 @@ ;;; Commentary: ;; Unit tests for cj/recording-quick-setup function. ;; The quick setup is a two-step flow: -;; Step 1: Pick a microphone (with state labels) -;; Step 2: Pick an audio output (sink) with state labels -;; Both steps show [active - running], [active - idle], or -;; [inactive - suspended] after the device description. +;; Step 1: Pick a microphone (with status labels) +;; Step 2: Pick an audio output (with status labels + app names) +;; Status labels: [in use], [ready], [available], [muted] +;; Sorted: in use → ready → available → muted. ;; The chosen sink's .monitor source is set as the system audio device. ;;; Code: @@ -39,10 +39,14 @@ (test-quick-setup-setup) (unwind-protect (cl-letf (((symbol-function 'cj/recording--get-available-mics) - (lambda () '(("jabra-input" "Jabra SPEAK 510 Mono" "SUSPENDED") - ("builtin-input" "Built-in Analog" "SUSPENDED")))) + (lambda () '(("jabra-input" "Jabra SPEAK 510 Mono" "SUSPENDED" "no") + ("builtin-input" "Built-in Analog" "SUSPENDED" "no")))) ((symbol-function 'cj/recording--get-available-sinks) - (lambda () '(("jds-labs" "JDS Labs Element IV" "RUNNING")))) + (lambda () '(("jds-labs" "JDS Labs Element IV" "RUNNING" "no")))) + ((symbol-function 'cj/recording--get-sink-apps) + (lambda () nil)) + ((symbol-function 'shell-command-to-string) + (lambda (_cmd) "")) ((symbol-function 'completing-read) (lambda (_prompt table &rest _args) (car (all-completions "" table))))) @@ -55,9 +59,13 @@ (test-quick-setup-setup) (unwind-protect (cl-letf (((symbol-function 'cj/recording--get-available-mics) - (lambda () '(("jabra-input" "Jabra SPEAK 510 Mono" "SUSPENDED")))) + (lambda () '(("jabra-input" "Jabra SPEAK 510 Mono" "SUSPENDED" "no")))) ((symbol-function 'cj/recording--get-available-sinks) - (lambda () '(("alsa_output.usb-JDS_Labs-00.analog-stereo" "JDS Labs Element IV" "RUNNING")))) + (lambda () '(("alsa_output.usb-JDS_Labs-00.analog-stereo" "JDS Labs Element IV" "RUNNING" "no")))) + ((symbol-function 'cj/recording--get-sink-apps) + (lambda () nil)) + ((symbol-function 'shell-command-to-string) + (lambda (_cmd) "")) ((symbol-function 'completing-read) (lambda (_prompt table &rest _args) (car (all-completions "" table))))) @@ -72,9 +80,13 @@ (unwind-protect (let ((call-count 0)) (cl-letf (((symbol-function 'cj/recording--get-available-mics) - (lambda () '(("mic-1" "Mic One" "SUSPENDED")))) + (lambda () '(("mic-1" "Mic One" "SUSPENDED" "no")))) ((symbol-function 'cj/recording--get-available-sinks) - (lambda () '(("sink-1" "Sink One" "SUSPENDED")))) + (lambda () '(("sink-1" "Sink One" "SUSPENDED" "no")))) + ((symbol-function 'cj/recording--get-sink-apps) + (lambda () nil)) + ((symbol-function 'shell-command-to-string) + (lambda (_cmd) "")) ((symbol-function 'completing-read) (lambda (_prompt table &rest _args) (setq call-count (1+ call-count)) @@ -83,16 +95,20 @@ (should (= 2 call-count)))) (test-quick-setup-teardown))) -(ert-deftest test-video-audio-recording-quick-setup-normal-running-label () - "Test that RUNNING devices show [active - running] label." +(ert-deftest test-video-audio-recording-quick-setup-normal-in-use-label () + "Test that RUNNING devices show [in use] label." (test-quick-setup-setup) (unwind-protect (let ((mic-candidates nil) (call-count 0)) (cl-letf (((symbol-function 'cj/recording--get-available-mics) - (lambda () '(("mic-1" "Running Mic" "RUNNING")))) + (lambda () '(("mic-1" "Running Mic" "RUNNING" "no")))) ((symbol-function 'cj/recording--get-available-sinks) - (lambda () '(("sink-1" "Sink One" "SUSPENDED")))) + (lambda () '(("sink-1" "Sink One" "SUSPENDED" "no")))) + ((symbol-function 'cj/recording--get-sink-apps) + (lambda () nil)) + ((symbol-function 'shell-command-to-string) + (lambda (_cmd) "")) ((symbol-function 'completing-read) (lambda (_prompt table &rest _args) (setq call-count (1+ call-count)) @@ -101,42 +117,50 @@ (setq mic-candidates candidates)) (car candidates))))) (cj/recording-quick-setup) - (should (cl-some (lambda (c) (string-match-p "\\[active - running\\]" c)) + (should (cl-some (lambda (c) (string-match-p "\\[in use\\]" c)) mic-candidates)))) (test-quick-setup-teardown))) -(ert-deftest test-video-audio-recording-quick-setup-normal-idle-label () - "Test that IDLE devices show [active - idle] label." +(ert-deftest test-video-audio-recording-quick-setup-normal-ready-label () + "Test that IDLE devices show [ready] label." (test-quick-setup-setup) (unwind-protect - (let ((sink-candidates nil) + (let ((mic-candidates nil) (call-count 0)) (cl-letf (((symbol-function 'cj/recording--get-available-mics) - (lambda () '(("mic-1" "Mic One" "SUSPENDED")))) + (lambda () '(("mic-1" "Idle Mic" "IDLE" "no")))) ((symbol-function 'cj/recording--get-available-sinks) - (lambda () '(("sink-1" "Idle Sink" "IDLE")))) + (lambda () '(("sink-1" "Sink One" "SUSPENDED" "no")))) + ((symbol-function 'cj/recording--get-sink-apps) + (lambda () nil)) + ((symbol-function 'shell-command-to-string) + (lambda (_cmd) "")) ((symbol-function 'completing-read) (lambda (_prompt table &rest _args) (setq call-count (1+ call-count)) (let ((candidates (all-completions "" table))) - (when (= call-count 2) - (setq sink-candidates candidates)) + (when (= call-count 1) + (setq mic-candidates candidates)) (car candidates))))) (cj/recording-quick-setup) - (should (cl-some (lambda (c) (string-match-p "\\[active - idle\\]" c)) - sink-candidates)))) + (should (cl-some (lambda (c) (string-match-p "\\[ready\\]" c)) + mic-candidates)))) (test-quick-setup-teardown))) -(ert-deftest test-video-audio-recording-quick-setup-normal-suspended-label () - "Test that SUSPENDED devices show [inactive - suspended] label." +(ert-deftest test-video-audio-recording-quick-setup-normal-muted-label () + "Test that muted devices show [muted] label." (test-quick-setup-setup) (unwind-protect (let ((mic-candidates nil) (call-count 0)) (cl-letf (((symbol-function 'cj/recording--get-available-mics) - (lambda () '(("mic-1" "Suspended Mic" "SUSPENDED")))) + (lambda () '(("mic-1" "Muted Mic" "SUSPENDED" "yes")))) ((symbol-function 'cj/recording--get-available-sinks) - (lambda () '(("sink-1" "Sink One" "SUSPENDED")))) + (lambda () '(("sink-1" "Sink One" "SUSPENDED" "no")))) + ((symbol-function 'cj/recording--get-sink-apps) + (lambda () nil)) + ((symbol-function 'shell-command-to-string) + (lambda (_cmd) "")) ((symbol-function 'completing-read) (lambda (_prompt table &rest _args) (setq call-count (1+ call-count)) @@ -145,22 +169,27 @@ (setq mic-candidates candidates)) (car candidates))))) (cj/recording-quick-setup) - (should (cl-some (lambda (c) (string-match-p "\\[inactive - suspended\\]" c)) + (should (cl-some (lambda (c) (string-match-p "\\[muted\\]" c)) mic-candidates)))) (test-quick-setup-teardown))) -(ert-deftest test-video-audio-recording-quick-setup-normal-sorted-by-state () - "Test that devices are sorted running → idle → suspended." +(ert-deftest test-video-audio-recording-quick-setup-normal-sorted-by-status () + "Test that devices are sorted: in use → ready → available → muted." (test-quick-setup-setup) (unwind-protect (let ((mic-candidates nil) (call-count 0)) (cl-letf (((symbol-function 'cj/recording--get-available-mics) - (lambda () '(("suspended-mic" "Suspended Mic" "SUSPENDED") - ("running-mic" "Running Mic" "RUNNING") - ("idle-mic" "Idle Mic" "IDLE")))) + (lambda () '(("muted-mic" "Muted Mic" "SUSPENDED" "yes") + ("running-mic" "Running Mic" "RUNNING" "no") + ("suspended-mic" "Suspended Mic" "SUSPENDED" "no") + ("idle-mic" "Idle Mic" "IDLE" "no")))) ((symbol-function 'cj/recording--get-available-sinks) - (lambda () '(("sink-1" "Sink One" "SUSPENDED")))) + (lambda () '(("sink-1" "Sink One" "SUSPENDED" "no")))) + ((symbol-function 'cj/recording--get-sink-apps) + (lambda () nil)) + ((symbol-function 'shell-command-to-string) + (lambda (_cmd) "")) ((symbol-function 'completing-read) (lambda (_prompt table &rest _args) (setq call-count (1+ call-count)) @@ -169,10 +198,39 @@ (setq mic-candidates candidates)) (car candidates))))) (cj/recording-quick-setup) - ;; First should be running, then idle, then suspended + ;; in use → ready → available → muted (should (string-match-p "Running Mic" (nth 0 mic-candidates))) (should (string-match-p "Idle Mic" (nth 1 mic-candidates))) - (should (string-match-p "Suspended Mic" (nth 2 mic-candidates))))) + (should (string-match-p "Suspended Mic" (nth 2 mic-candidates))) + (should (string-match-p "Muted Mic" (nth 3 mic-candidates))))) + (test-quick-setup-teardown))) + +(ert-deftest test-video-audio-recording-quick-setup-normal-sink-shows-apps () + "Test that sink labels include application names." + (test-quick-setup-setup) + (unwind-protect + (let ((sink-candidates nil) + (call-count 0)) + (cl-letf (((symbol-function 'cj/recording--get-available-mics) + (lambda () '(("mic-1" "Mic One" "SUSPENDED" "no")))) + ((symbol-function 'cj/recording--get-available-sinks) + (lambda () '(("sink-with-apps" "JDS Labs" "RUNNING" "no")))) + ((symbol-function 'cj/recording--get-sink-apps) + (lambda () '(("65" "Firefox" "Spotify")))) + ((symbol-function 'shell-command-to-string) + (lambda (_cmd) "65\tsink-with-apps\tPipeWire\n")) + ((symbol-function 'completing-read) + (lambda (_prompt table &rest _args) + (setq call-count (1+ call-count)) + (let ((candidates (all-completions "" table))) + (when (= call-count 2) + (setq sink-candidates candidates)) + (car candidates))))) + (cj/recording-quick-setup) + (should (cl-some (lambda (c) (string-match-p "Firefox" c)) + sink-candidates)) + (should (cl-some (lambda (c) (string-match-p "Spotify" c)) + sink-candidates)))) (test-quick-setup-teardown))) (ert-deftest test-video-audio-recording-quick-setup-normal-confirmation-message () @@ -181,9 +239,13 @@ (unwind-protect (let ((message-text nil)) (cl-letf (((symbol-function 'cj/recording--get-available-mics) - (lambda () '(("jabra-input" "Jabra SPEAK 510 Mono" "RUNNING")))) + (lambda () '(("jabra-input" "Jabra SPEAK 510 Mono" "RUNNING" "no")))) ((symbol-function 'cj/recording--get-available-sinks) - (lambda () '(("jds-labs.analog-stereo" "JDS Labs Element IV" "RUNNING")))) + (lambda () '(("jds-labs.analog-stereo" "JDS Labs Element IV" "RUNNING" "no")))) + ((symbol-function 'cj/recording--get-sink-apps) + (lambda () nil)) + ((symbol-function 'shell-command-to-string) + (lambda (_cmd) "")) ((symbol-function 'completing-read) (lambda (_prompt table &rest _args) (car (all-completions "" table)))) @@ -203,9 +265,13 @@ (unwind-protect (let ((read-called 0)) (cl-letf (((symbol-function 'cj/recording--get-available-mics) - (lambda () '(("sole-mic" "Only Mic Available" "SUSPENDED")))) + (lambda () '(("sole-mic" "Only Mic Available" "SUSPENDED" "no")))) ((symbol-function 'cj/recording--get-available-sinks) - (lambda () '(("sole-sink" "Only Sink" "SUSPENDED")))) + (lambda () '(("sole-sink" "Only Sink" "SUSPENDED" "no")))) + ((symbol-function 'cj/recording--get-sink-apps) + (lambda () nil)) + ((symbol-function 'shell-command-to-string) + (lambda (_cmd) "")) ((symbol-function 'completing-read) (lambda (_prompt table &rest _args) (setq read-called (1+ read-called)) @@ -222,9 +288,7 @@ (test-quick-setup-setup) (unwind-protect (cl-letf (((symbol-function 'cj/recording--get-available-mics) - (lambda () '(("jabra-input" "Jabra SPEAK 510 Mono" "SUSPENDED")))) - ((symbol-function 'cj/recording--get-available-sinks) - (lambda () '(("sink-1" "Sink One" "SUSPENDED")))) + (lambda () '(("jabra-input" "Jabra SPEAK 510 Mono" "SUSPENDED" "no")))) ((symbol-function 'completing-read) (lambda (_prompt _choices &rest _args) "Cancel"))) @@ -239,16 +303,18 @@ (unwind-protect (let ((call-count 0)) (cl-letf (((symbol-function 'cj/recording--get-available-mics) - (lambda () '(("jabra-input" "Jabra SPEAK 510 Mono" "SUSPENDED")))) + (lambda () '(("jabra-input" "Jabra SPEAK 510 Mono" "SUSPENDED" "no")))) ((symbol-function 'cj/recording--get-available-sinks) - (lambda () '(("sink-1" "Sink One" "SUSPENDED")))) + (lambda () '(("sink-1" "Sink One" "SUSPENDED" "no")))) + ((symbol-function 'cj/recording--get-sink-apps) + (lambda () nil)) + ((symbol-function 'shell-command-to-string) + (lambda (_cmd) "")) ((symbol-function 'completing-read) (lambda (_prompt table &rest _args) (setq call-count (1+ call-count)) (if (= call-count 1) - ;; First call: select mic (car (all-completions "" table)) - ;; Second call: cancel sink "Cancel")))) (should-error (cj/recording-quick-setup) :type 'user-error) (should (null cj/recording-system-device)))) @@ -264,7 +330,7 @@ (test-quick-setup-teardown))) (ert-deftest test-video-audio-recording-quick-setup-error-no-mics-message () - "Test that error message mentions mic and unmuted." + "Test that error message mentions mic." (test-quick-setup-setup) (unwind-protect (cl-letf (((symbol-function 'cj/recording--get-available-mics) |