summaryrefslogtreecommitdiff
path: root/tests/test-video-audio-recording-detect-system-device.el
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test-video-audio-recording-detect-system-device.el')
-rw-r--r--tests/test-video-audio-recording-detect-system-device.el151
1 files changed, 0 insertions, 151 deletions
diff --git a/tests/test-video-audio-recording-detect-system-device.el b/tests/test-video-audio-recording-detect-system-device.el
deleted file mode 100644
index bea20e8a..00000000
--- a/tests/test-video-audio-recording-detect-system-device.el
+++ /dev/null
@@ -1,151 +0,0 @@
-;;; test-video-audio-recording-detect-system-device.el --- Tests for cj/recording-detect-system-device -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;; Unit tests for cj/recording-detect-system-device function.
-;; Tests auto-detection of system audio monitor device from pactl output.
-;; Mocks shell-command-to-string to test regex matching logic.
-;;
-;; NOTE: This function works correctly - returns the full device name ending in .monitor.
-;; The regex \\([^\t\n]+\\.monitor\\) matches any non-tab/newline chars ending with .monitor,
-;; which correctly captures the device name field from pactl output.
-;;
-;; This function may not be actively used (parse-sources is preferred).
-;; Tests document current behavior to catch regressions.
-
-;;; 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)
-
-;;; Normal Cases
-
-(ert-deftest test-video-audio-recording-detect-system-device-normal-built-in-monitor-found ()
- "Test detection of built-in system audio monitor.
-Returns full device name."
- (let ((output "49\talsa_output.pci-0000_00_1f.3.analog-stereo.monitor\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n50\talsa_input.pci-0000_00_1f.3.analog-stereo\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"))
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) output)))
- (let ((result (cj/recording-detect-system-device)))
- (should (stringp result))
- (should (equal "alsa_output.pci-0000_00_1f.3.analog-stereo.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-normal-usb-monitor-found ()
- "Test detection of USB system audio monitor."
- (let ((output "99\talsa_output.usb-0b0e_Jabra_SPEAK_510_USB_1C48F9C067D5020A00-00.analog-stereo.monitor\tPipeWire\ts16le 2ch 48000Hz\tSUSPENDED\n"))
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) output)))
- (let ((result (cj/recording-detect-system-device)))
- (should (stringp result))
- (should (equal "alsa_output.usb-0b0e_Jabra_SPEAK_510_USB_1C48F9C067D5020A00-00.analog-stereo.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-normal-bluetooth-monitor-found ()
- "Test detection of Bluetooth monitor device."
- (let ((output "81\tbluez_output.00_1B_66_C0_91_6D.1.monitor\tPipeWire\ts24le 2ch 48000Hz\tRUNNING\n"))
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) output)))
- (let ((result (cj/recording-detect-system-device)))
- (should (stringp result))
- (should (equal "bluez_output.00_1B_66_C0_91_6D.1.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-normal-first-match-returned ()
- "Test that first matching monitor is returned when multiple exist."
- (let ((output (concat "49\talsa_output.pci-0000_00_1f.3.analog-stereo.monitor\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"
- "81\tbluez_output.00_1B_66_C0_91_6D.1.monitor\tPipeWire\ts24le 2ch 48000Hz\tRUNNING\n"
- "99\talsa_output.usb-device.monitor\tPipeWire\ts16le 2ch 48000Hz\tSUSPENDED\n")))
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) output)))
- (let ((result (cj/recording-detect-system-device)))
- ;; Returns first monitor device name
- (should (equal "alsa_output.pci-0000_00_1f.3.analog-stereo.monitor" result))))))
-
-;;; Boundary Cases
-
-(ert-deftest test-video-audio-recording-detect-system-device-boundary-empty-output-returns-nil ()
- "Test that empty output returns nil."
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) "")))
- (let ((result (cj/recording-detect-system-device)))
- (should (null result)))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-boundary-only-inputs-returns-nil ()
- "Test that output with only input devices (no monitors) returns nil."
- (let ((output (concat "50\talsa_input.pci-0000_00_1f.3.analog-stereo\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"
- "79\tbluez_input.00:1B:66:C0:91:6D\tPipeWire\tfloat32le 1ch 48000Hz\tSUSPENDED\n")))
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) output)))
- (let ((result (cj/recording-detect-system-device)))
- (should (null result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-boundary-whitespace-only-returns-nil ()
- "Test that whitespace-only output returns nil."
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) " \n\t\n ")))
- (let ((result (cj/recording-detect-system-device)))
- (should (null result)))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-boundary-monitor-different-states ()
- "Test that monitors in different states are all matched."
- (let ((output "81\tbluez_output.00_1B_66_C0_91_6D.1.monitor\tPipeWire\ts24le 2ch 48000Hz\tRUNNING\n"))
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) output)))
- (let ((result (cj/recording-detect-system-device)))
- ;; Should match regardless of state (RUNNING, SUSPENDED, IDLE)
- (should (equal "bluez_output.00_1B_66_C0_91_6D.1.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-boundary-case-insensitive-monitor ()
- "Test that regex is case-insensitive for '.monitor' suffix.
-Documents that .MONITOR (uppercase) also matches."
- (let ((output "49\talsa_output.pci-0000_00_1f.3.analog-stereo.MONITOR\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"))
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) output)))
- (let ((result (cj/recording-detect-system-device)))
- ;; Case-insensitive: .MONITOR matches
- (should (equal "alsa_output.pci-0000_00_1f.3.analog-stereo.MONITOR" result))))))
-
-;;; Error Cases
-
-(ert-deftest test-video-audio-recording-detect-system-device-error-malformed-output-returns-nil ()
- "Test that malformed output returns nil."
- (let ((output "This is not valid pactl output\nRandom text here\n"))
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) output)))
- (let ((result (cj/recording-detect-system-device)))
- (should (null result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-error-partial-monitor-matches ()
- "Test that device with .monitor in middle partially matches (documents quirk).
-The regex matches up to first .monitor occurrence, even if not at end of device name."
- (let ((output "50\talsa_input.monitor-device.analog-stereo\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"))
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) output)))
- (let ((result (cj/recording-detect-system-device)))
- ;; QUIRK: Matches partial string "alsa_input.monitor"
- (should (equal "alsa_input.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-error-incomplete-line ()
- "Test that incomplete lines with .monitor are still matched."
- (let ((output "49\tincomplete-line.monitor\n"))
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) output)))
- (let ((result (cj/recording-detect-system-device)))
- ;; Should match device name ending in .monitor
- (should (equal "incomplete-line.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-error-mixed-valid-invalid ()
- "Test that mix of valid and invalid lines returns first valid monitor."
- (let ((output (concat "invalid line without tabs\n"
- "49\talsa_output.pci-0000_00_1f.3.analog-stereo.monitor\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"
- "another invalid line\n")))
- (cl-letf (((symbol-function 'shell-command-to-string)
- (lambda (_cmd) output)))
- (let ((result (cj/recording-detect-system-device)))
- (should (equal "alsa_output.pci-0000_00_1f.3.analog-stereo.monitor" result))))))
-
-(provide 'test-video-audio-recording-detect-system-device)
-;;; test-video-audio-recording-detect-system-device.el ends here
generated by cgit v1.2.3 (git 2.25.1) at 2025-12-12 11:02:52 +0000