From 0febc3bb65462fd95a75387c2ec97ffa374efc00 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Fri, 14 Nov 2025 02:35:00 -0600
Subject: Revert "checking in modified/removed tests and other misc changes"

This reverts commit 9d55ed149e100b4fb3ef6f5a79d263dcb26ce835.
---
 tests/test-transcription-log-cleanup.el | 49 +++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 tests/test-transcription-log-cleanup.el

(limited to 'tests/test-transcription-log-cleanup.el')

diff --git a/tests/test-transcription-log-cleanup.el b/tests/test-transcription-log-cleanup.el
new file mode 100644
index 00000000..251e5ef9
--- /dev/null
+++ b/tests/test-transcription-log-cleanup.el
@@ -0,0 +1,49 @@
+;;; 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
-- 
cgit v1.2.3