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 | d36afc3f277b9a4228eb7b2464ec4e503695b8d4 (patch) | |
| tree | 63e5295491d300b04f1ed252608e6d2453428695 /tests/test-video-audio-recording-check-ffmpeg.el | |
| parent | 48ed58a7264df38db4be6f3cb9304ff19afcb5fd (diff) | |
| download | dotemacs-d36afc3f277b9a4228eb7b2464ec4e503695b8d4.tar.gz dotemacs-d36afc3f277b9a4228eb7b2464ec4e503695b8d4.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 |