From 9d55ed149e100b4fb3ef6f5a79d263dcb26ce835 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Fri, 14 Nov 2025 02:31:16 -0600 Subject: checking in modified/removed tests and other misc changes --- tests/test-transcription-duration.el | 63 ------------------------------------ 1 file changed, 63 deletions(-) delete mode 100644 tests/test-transcription-duration.el (limited to 'tests/test-transcription-duration.el') diff --git a/tests/test-transcription-duration.el b/tests/test-transcription-duration.el deleted file mode 100644 index 4f4e9a75..00000000 --- a/tests/test-transcription-duration.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; 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) - -;; 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-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 -- cgit v1.2.3