summaryrefslogtreecommitdiff
path: root/tests/test-transcription-duration.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2025-11-04 14:35:50 -0600
committerCraig Jennings <c@cjennings.net>2025-11-04 14:35:50 -0600
commit45cab5c38dc089935416a89d36b461d9127094ac (patch)
treeccfb33579de009c8c8694f2a79d10e487d74de8f /tests/test-transcription-duration.el
parentefbcd0b7de7993b9fde29297daad1154711a3e81 (diff)
feat: Add complete async audio transcription workflow
Implemented full transcription system with local Whisper and OpenAI API support. Includes comprehensive test suite (60 tests) and reorganized keybindings for better discoverability. Features: - Async transcription (non-blocking workflow) - Desktop notifications (started/complete/error) - Output: audio.txt (transcript) + audio.log (process logs) - Modeline integration showing active transcription count - Dired integration (press T on audio files) - Process management and tracking Scripts: - install-whisper.sh: Install Whisper via AUR or pip - uninstall-whisper.sh: Clean removal with cache cleanup - local-whisper: Offline transcription using installed Whisper - oai-transcribe: Cloud transcription via OpenAI API Tests (60 passing): - Audio file detection (16 tests) - Path generation logic (11 tests) - Log cleanup behavior (5 tests) - Duration formatting (9 tests) - Active counter & modeline (11 tests) - Integration workflows (8 tests) Keybindings: - Reorganized gcal to C-; g submenu (s/t/r/c) - Added C-; t transcription submenu (t/b/k) - Dired: T to transcribe file at point 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
Diffstat (limited to 'tests/test-transcription-duration.el')
-rw-r--r--tests/test-transcription-duration.el58
1 files changed, 58 insertions, 0 deletions
diff --git a/tests/test-transcription-duration.el b/tests/test-transcription-duration.el
new file mode 100644
index 00000000..370c439b
--- /dev/null
+++ b/tests/test-transcription-duration.el
@@ -0,0 +1,58 @@
+;;; test-transcription-duration.el --- Tests for duration calculation -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for cj/--transcription-duration function
+;; Categories: Normal cases, Boundary cases
+
+;;; Code:
+
+(require 'ert)
+(require 'transcription-config)
+
+;; ----------------------------- Normal Cases ----------------------------------
+
+(ert-deftest test-cj/--transcription-duration-zero-seconds ()
+ "Test duration calculation for current time (should be 00:00)."
+ (let ((now (current-time)))
+ (should (string= (cj/--transcription-duration now) "00:00"))))
+
+(ert-deftest test-cj/--transcription-duration-30-seconds ()
+ "Test duration calculation for 30 seconds ago."
+ (let ((start-time (time-subtract (current-time) (seconds-to-time 30))))
+ (should (string= (cj/--transcription-duration start-time) "00:30"))))
+
+(ert-deftest test-cj/--transcription-duration-1-minute ()
+ "Test duration calculation for 1 minute ago."
+ (let ((start-time (time-subtract (current-time) (seconds-to-time 60))))
+ (should (string= (cj/--transcription-duration start-time) "01:00"))))
+
+(ert-deftest test-cj/--transcription-duration-2-minutes-30-seconds ()
+ "Test duration calculation for 2:30 ago."
+ (let ((start-time (time-subtract (current-time) (seconds-to-time 150))))
+ (should (string= (cj/--transcription-duration start-time) "02:30"))))
+
+(ert-deftest test-cj/--transcription-duration-10-minutes ()
+ "Test duration calculation for 10 minutes ago."
+ (let ((start-time (time-subtract (current-time) (seconds-to-time 600))))
+ (should (string= (cj/--transcription-duration start-time) "10:00"))))
+
+;; ----------------------------- Boundary Cases --------------------------------
+
+(ert-deftest test-cj/--transcription-duration-59-seconds ()
+ "Test duration just before 1 minute."
+ (let ((start-time (time-subtract (current-time) (seconds-to-time 59))))
+ (should (string= (cj/--transcription-duration start-time) "00:59"))))
+
+(ert-deftest test-cj/--transcription-duration-1-hour ()
+ "Test duration for 1 hour (60 minutes)."
+ (let ((start-time (time-subtract (current-time) (seconds-to-time 3600))))
+ (should (string= (cj/--transcription-duration start-time) "60:00"))))
+
+(ert-deftest test-cj/--transcription-duration-format ()
+ "Test that duration is always in MM:SS format with zero-padding."
+ (let ((start-time (time-subtract (current-time) (seconds-to-time 65))))
+ (let ((result (cj/--transcription-duration start-time)))
+ (should (string-match-p "^[0-9][0-9]:[0-9][0-9]$" result)))))
+
+(provide 'test-transcription-duration)
+;;; test-transcription-duration.el ends here