blob: 7f54f0537b80a602ac37ff11d9a170e0caaed60c (
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
99
100
101
102
103
104
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
|
