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 | 9d55ed149e100b4fb3ef6f5a79d263dcb26ce835 (patch) | |
| tree | b02a77b84849f15b4302fda8f3f8e3942cb253ac /tests/test-transcription-log-cleanup.el | |
| parent | 7b982b1984dd37af42a2dfc9f4c3e52b27102860 (diff) | |
checking in modified/removed tests and other misc changes
Diffstat (limited to 'tests/test-transcription-log-cleanup.el')
| -rw-r--r-- | tests/test-transcription-log-cleanup.el | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/tests/test-transcription-log-cleanup.el b/tests/test-transcription-log-cleanup.el deleted file mode 100644 index 251e5ef9..00000000 --- a/tests/test-transcription-log-cleanup.el +++ /dev/null @@ -1,49 +0,0 @@ -;;; test-transcription-log-cleanup.el --- Tests for log cleanup logic -*- lexical-binding: t; -*- - -;;; Commentary: -;; Tests for cj/--should-keep-log 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/--should-keep-log-success-keep-disabled () - "Test that logs are deleted on success when keep-log is nil." - (let ((cj/transcription-keep-log-when-done nil)) - (should-not (cj/--should-keep-log t)))) - -(ert-deftest test-cj/--should-keep-log-success-keep-enabled () - "Test that logs are kept on success when keep-log is t." - (let ((cj/transcription-keep-log-when-done t)) - (should (cj/--should-keep-log t)))) - -(ert-deftest test-cj/--should-keep-log-error-keep-disabled () - "Test that logs are always kept on error, even if keep-log is nil." - (let ((cj/transcription-keep-log-when-done nil)) - (should (cj/--should-keep-log nil)))) - -(ert-deftest test-cj/--should-keep-log-error-keep-enabled () - "Test that logs are kept on error when keep-log is t." - (let ((cj/transcription-keep-log-when-done t)) - (should (cj/--should-keep-log nil)))) - -;; ----------------------------- Boundary Cases -------------------------------- - -(ert-deftest test-cj/--should-keep-log-default-behavior () - "Test default behavior (should not keep on success)." - ;; Default is nil based on defcustom - (let ((cj/transcription-keep-log-when-done nil)) - (should-not (cj/--should-keep-log t)) - (should (cj/--should-keep-log nil)))) - -(provide 'test-transcription-log-cleanup) -;;; test-transcription-log-cleanup.el ends here |