1 files changed, 105 insertions, 0 deletions
diff --git a/tests/test-video-audio-recording--build-video-command.el b/tests/test-video-audio-recording--build-video-command.el
new file mode 100644
index 00000000..7f54f053
--- /dev/null
+++ b/tests/test-video-audio-recording--build-video-command.el
@@ -0,0 +1,105 @@
+;;; test-video-audio-recording--build-video-command.el --- Tests for video command builder -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Unit tests for cj/recording--build-video-command.
+;; Verifies correct shell command construction for Wayland (wf-recorder|ffmpeg)
+;; and X11 (ffmpeg x11grab) video recording pipelines.
+
+;;; Code:
+
+(require 'ert)
+
+;; Stub dependencies before loading the module
+(defvar cj/custom-keymap (make-sparse-keymap)
+  "Stub keymap for testing.")
+
+(require 'video-audio-recording)
+
+;;; Normal Cases
+
+(ert-deftest test-video-audio-recording--build-video-command-normal-wayland-uses-wf-recorder ()
+  "Wayland command pipes wf-recorder to ffmpeg."
+  (let ((cj/recording-mic-boost 2.0)
+        (cj/recording-system-volume 1.0))
+    (cl-letf (((symbol-function 'executable-find) (lambda (_prog) t)))
+      (let ((cmd (cj/recording--build-video-command "mic" "sys" "/tmp/out.mkv" t)))
+        (should (string-match-p "wf-recorder.*|.*ffmpeg" cmd))
+        (should (string-match-p "-i pipe:0" cmd))
+        (should (string-match-p "-c:v copy" cmd))))))
+
+(ert-deftest test-video-audio-recording--build-video-command-normal-x11-uses-x11grab ()
+  "X11 command uses ffmpeg with x11grab, no wf-recorder."
+  (let ((cj/recording-mic-boost 2.0)
+        (cj/recording-system-volume 1.0))
+    (let ((cmd (cj/recording--build-video-command "mic" "sys" "/tmp/out.mkv" nil)))
+      (should (string-match-p "x11grab" cmd))
+      (should-not (string-match-p "wf-recorder" cmd)))))
+
+(ert-deftest test-video-audio-recording--build-video-command-normal-devices-in-command ()
+  "Both mic and system device names appear in the command."
+  (let ((cj/recording-mic-boost 1.0)
+        (cj/recording-system-volume 1.0))
+    (let ((cmd (cj/recording--build-video-command
+                "alsa_input.usb-Jabra-00.mono"
+                "alsa_output.usb-JDS-00.monitor"
+                "/tmp/out.mkv" nil)))
+      (should (string-match-p "alsa_input.usb-Jabra-00.mono" cmd))
+      (should (string-match-p "alsa_output.usb-JDS-00.monitor" cmd)))))
+
+(ert-deftest test-video-audio-recording--build-video-command-normal-volume-in-filter ()
+  "Volume settings appear in the filter_complex expression."
+  (let ((cj/recording-mic-boost 1.5)
+        (cj/recording-system-volume 0.7))
+    (let ((cmd (cj/recording--build-video-command "mic" "sys" "/tmp/out.mkv" nil)))
+      (should (string-match-p "volume=1\\.5" cmd))
+      (should (string-match-p "volume=0\\.7" cmd)))))
+
+;;; Boundary Cases
+
+(ert-deftest test-video-audio-recording--build-video-command-boundary-special-chars-quoted ()
+  "Device names with special characters are shell-quoted in Wayland mode."
+  (let ((cj/recording-mic-boost 1.0)
+        (cj/recording-system-volume 1.0))
+    (cl-letf (((symbol-function 'executable-find) (lambda (_prog) t)))
+      (let ((cmd (cj/recording--build-video-command
+                  "device with spaces" "sys" "/tmp/out.mkv" t)))
+        ;; shell-quote-argument escapes spaces with backslashes
+        (should (string-match-p "device\\\\ with\\\\ spaces" cmd))))))
+
+(ert-deftest test-video-audio-recording--build-video-command-boundary-filename-with-spaces ()
+  "Output filename with spaces is shell-quoted in Wayland mode."
+  (let ((cj/recording-mic-boost 1.0)
+        (cj/recording-system-volume 1.0))
+    (cl-letf (((symbol-function 'executable-find) (lambda (_prog) t)))
+      (let ((cmd (cj/recording--build-video-command
+                  "mic" "sys" "/tmp/my recording.mkv" t)))
+        ;; Filename should be quoted/escaped
+        (should (string-match-p "recording" cmd))))))
+
+(ert-deftest test-video-audio-recording--build-video-command-boundary-zero-volume ()
+  "Zero volume values produce 0.0 in the command."
+  (let ((cj/recording-mic-boost 0.0)
+        (cj/recording-system-volume 0.0))
+    (let ((cmd (cj/recording--build-video-command "mic" "sys" "/tmp/out.mkv" nil)))
+      (should (string-match-p "volume=0\\.0" cmd)))))
+
+;;; Error Cases
+
+(ert-deftest test-video-audio-recording--build-video-command-error-wayland-no-wf-recorder ()
+  "Wayland mode signals error when wf-recorder is not installed."
+  (cl-letf (((symbol-function 'executable-find) (lambda (_prog) nil)))
+    (should-error (cj/recording--build-video-command "mic" "sys" "/tmp/out.mkv" t)
+                  :type 'user-error)))
+
+(ert-deftest test-video-audio-recording--build-video-command-error-x11-no-wf-recorder-check ()
+  "X11 mode does not check for wf-recorder at all."
+  (let ((cj/recording-mic-boost 1.0)
+        (cj/recording-system-volume 1.0)
+        (check-called nil))
+    (cl-letf (((symbol-function 'cj/recording--check-wf-recorder)
+               (lambda () (setq check-called t))))
+      (cj/recording--build-video-command "mic" "sys" "/tmp/out.mkv" nil)
+      (should-not check-called))))
+
+(provide 'test-video-audio-recording--build-video-command)
+;;; test-video-audio-recording--build-video-command.el ends here