diff options
| author | Craig Jennings <c@cjennings.net> | 2025-11-14 02:31:16 -0600 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2025-11-14 02:31:16 -0600 |
| commit | 94d4e6c9624046cef20236a8073a4857d3bd7827 (patch) | |
| tree | ce62f73550d566d42c2bf53a9bc34f72baa1abdb /tests/test-video-audio-recording-check-ffmpeg.el | |
| parent | 35a9f4f8a929a28f726bcd8411fb8cec71773c6a (diff) | |
| download | dotemacs-94d4e6c9624046cef20236a8073a4857d3bd7827.tar.gz dotemacs-94d4e6c9624046cef20236a8073a4857d3bd7827.zip | |
checking in modified/removed tests and other misc changes
Diffstat (limited to 'tests/test-video-audio-recording-check-ffmpeg.el')
| -rw-r--r-- | tests/test-video-audio-recording-check-ffmpeg.el | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/tests/test-video-audio-recording-check-ffmpeg.el b/tests/test-video-audio-recording-check-ffmpeg.el deleted file mode 100644 index 5c264b64..00000000 --- a/tests/test-video-audio-recording-check-ffmpeg.el +++ /dev/null @@ -1,46 +0,0 @@ -;;; test-video-audio-recording-check-ffmpeg.el --- Tests for cj/recording-check-ffmpeg -*- lexical-binding: t; -*- - -;;; Commentary: -;; Unit tests for cj/recording-check-ffmpeg function. -;; Tests detection of ffmpeg availability. - -;;; 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-check-ffmpeg-normal-ffmpeg-found-returns-t () - "Test that function returns t when ffmpeg is found." - (cl-letf (((symbol-function 'executable-find) - (lambda (cmd) - (when (equal cmd "ffmpeg") "/usr/bin/ffmpeg")))) - (let ((result (cj/recording-check-ffmpeg))) - (should (eq t result))))) - -;;; Error Cases - -(ert-deftest test-video-audio-recording-check-ffmpeg-error-ffmpeg-not-found-signals-error () - "Test that function signals user-error when ffmpeg is not found." - (cl-letf (((symbol-function 'executable-find) - (lambda (_cmd) nil))) - (should-error (cj/recording-check-ffmpeg) :type 'user-error))) - -(ert-deftest test-video-audio-recording-check-ffmpeg-error-message-mentions-pacman () - "Test that error message includes installation command." - (cl-letf (((symbol-function 'executable-find) - (lambda (_cmd) nil))) - (condition-case err - (cj/recording-check-ffmpeg) - (user-error - (should (string-match-p "pacman -S ffmpeg" (error-message-string err))))))) - -(provide 'test-video-audio-recording-check-ffmpeg) -;;; test-video-audio-recording-check-ffmpeg.el ends here |