summaryrefslogtreecommitdiff
path: root/tests/test-transcription-paths.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2025-11-14 02:31:16 -0600
committerCraig Jennings <c@cjennings.net>2025-11-14 02:31:16 -0600
commit9d55ed149e100b4fb3ef6f5a79d263dcb26ce835 (patch)
treeb02a77b84849f15b4302fda8f3f8e3942cb253ac /tests/test-transcription-paths.el
parent7b982b1984dd37af42a2dfc9f4c3e52b27102860 (diff)
checking in modified/removed tests and other misc changes
Diffstat (limited to 'tests/test-transcription-paths.el')
-rw-r--r--tests/test-transcription-paths.el85
1 files changed, 0 insertions, 85 deletions
diff --git a/tests/test-transcription-paths.el b/tests/test-transcription-paths.el
deleted file mode 100644
index 69dc27e7..00000000
--- a/tests/test-transcription-paths.el
+++ /dev/null
@@ -1,85 +0,0 @@
-;;; test-transcription-paths.el --- Tests for transcription file path logic -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;; Tests for cj/--transcription-output-files and cj/--transcription-script-path
-;; Categories: Normal cases, Boundary cases, Error cases
-
-;;; Code:
-
-(require 'ert)
-
-;; Stub dependencies before loading the module
-(defvar cj/custom-keymap (make-sparse-keymap)
- "Stub keymap for testing.")
-
-(require 'transcription-config)
-
-;; ----------------------------- Normal Cases ----------------------------------
-
-(ert-deftest test-cj/--transcription-output-files-simple ()
- "Test output file paths for simple filename."
- (let ((result (cj/--transcription-output-files "meeting.m4a")))
- (should (string= (car result) "meeting.txt"))
- (should (string= (cdr result) "meeting.log"))))
-
-(ert-deftest test-cj/--transcription-output-files-with-path ()
- "Test output file paths with full path."
- (let ((result (cj/--transcription-output-files "/home/user/audio/podcast.mp3")))
- (should (string= (car result) "/home/user/audio/podcast.txt"))
- (should (string= (cdr result) "/home/user/audio/podcast.log"))))
-
-(ert-deftest test-cj/--transcription-output-files-different-extensions ()
- "Test output files for various audio extensions."
- (dolist (ext '("m4a" "mp3" "wav" "flac" "ogg"))
- (let* ((input (format "audio.%s" ext))
- (result (cj/--transcription-output-files input)))
- (should (string= (car result) "audio.txt"))
- (should (string= (cdr result) "audio.log")))))
-
-;; ----------------------------- Boundary Cases --------------------------------
-
-(ert-deftest test-cj/--transcription-output-files-multiple-dots ()
- "Test output files for filename with multiple dots."
- (let ((result (cj/--transcription-output-files "meeting.2025-11-04.final.m4a")))
- (should (string= (car result) "meeting.2025-11-04.final.txt"))
- (should (string= (cdr result) "meeting.2025-11-04.final.log"))))
-
-(ert-deftest test-cj/--transcription-output-files-no-extension ()
- "Test output files for filename without extension."
- (let ((result (cj/--transcription-output-files "meeting")))
- (should (string= (car result) "meeting.txt"))
- (should (string= (cdr result) "meeting.log"))))
-
-(ert-deftest test-cj/--transcription-output-files-spaces-in-name ()
- "Test output files for filename with spaces."
- (let ((result (cj/--transcription-output-files "team meeting 2025.m4a")))
- (should (string= (car result) "team meeting 2025.txt"))
- (should (string= (cdr result) "team meeting 2025.log"))))
-
-(ert-deftest test-cj/--transcription-output-files-special-chars ()
- "Test output files for filename with special characters."
- (let ((result (cj/--transcription-output-files "meeting_(final).m4a")))
- (should (string= (car result) "meeting_(final).txt"))
- (should (string= (cdr result) "meeting_(final).log"))))
-
-;; ----------------------------- Script Path Tests -----------------------------
-
-(ert-deftest test-cj/--transcription-script-path-local-whisper ()
- "Test script path for local-whisper backend."
- (let ((cj/transcribe-backend 'local-whisper))
- (should (string-suffix-p "scripts/local-whisper"
- (cj/--transcription-script-path)))))
-
-(ert-deftest test-cj/--transcription-script-path-openai-api ()
- "Test script path for openai-api backend."
- (let ((cj/transcribe-backend 'openai-api))
- (should (string-suffix-p "scripts/oai-transcribe"
- (cj/--transcription-script-path)))))
-
-(ert-deftest test-cj/--transcription-script-path-absolute ()
- "Test that script path is absolute."
- (let ((path (cj/--transcription-script-path)))
- (should (file-name-absolute-p path))))
-
-(provide 'test-transcription-paths)
-;;; test-transcription-paths.el ends here