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 | 94d4e6c9624046cef20236a8073a4857d3bd7827 (patch) | |
| tree | ce62f73550d566d42c2bf53a9bc34f72baa1abdb /tests/test-transcription-log-cleanup.el | |
| parent | 35a9f4f8a929a28f726bcd8411fb8cec71773c6a (diff) | |
| download | dotemacs-94d4e6c9624046cef20236a8073a4857d3bd7827.tar.gz dotemacs-94d4e6c9624046cef20236a8073a4857d3bd7827.zip | |
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 |