1 files changed, 72 insertions, 0 deletions
diff --git a/tests/test-calendar-sync-source-fetch-sentinel.el b/tests/test-calendar-sync-source-fetch-sentinel.el
new file mode 100644
index 00000000..0b7ba1cf
--- /dev/null
+++ b/tests/test-calendar-sync-source-fetch-sentinel.el
@@ -0,0 +1,72 @@
+;;; test-calendar-sync-source-fetch-sentinel.el --- Tests for the fetch sentinel -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; calendar-sync--fetch-sentinel-finish is the extracted tail of the async
+;; .ics fetch sentinel.  The async-worker tests stub the whole fetch, so its
+;; success, failure, and temp-file-cleanup branches were never exercised.
+;; These tests drive the helper directly with fake success/failure inputs,
+;; no live curl process.
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+(require 'calendar-sync)
+
+(ert-deftest test-calendar-sync-fetch-sentinel-success-passes-temp-file ()
+  "Normal: on success the callback gets the temp file and it is not deleted."
+  (let ((temp-file (make-temp-file "calendar-sync-sentinel-" nil ".ics"))
+        (buffer (generate-new-buffer " *cs-test*"))
+        (got 'unset))
+    (unwind-protect
+        (progn
+          (calendar-sync--fetch-sentinel-finish
+           t "finished\n" temp-file buffer (lambda (r) (setq got r)))
+          (should (equal got temp-file))
+          (should (file-exists-p temp-file))
+          (should-not (buffer-live-p buffer)))
+      (when (file-exists-p temp-file) (delete-file temp-file))
+      (when (buffer-live-p buffer) (kill-buffer buffer)))))
+
+(ert-deftest test-calendar-sync-fetch-sentinel-failure-deletes-and-passes-nil ()
+  "Error: on failure the temp file is deleted and the callback gets nil."
+  (let ((temp-file (make-temp-file "calendar-sync-sentinel-" nil ".ics"))
+        (buffer (generate-new-buffer " *cs-test*"))
+        (got 'unset)
+        (logged nil))
+    (unwind-protect
+        (cl-letf (((symbol-function 'calendar-sync--log-silently)
+                   (lambda (&rest _) (setq logged t))))
+          (calendar-sync--fetch-sentinel-finish
+           nil "exited abnormally with code 22\n" temp-file buffer
+           (lambda (r) (setq got r)))
+          (should (null got))
+          (should-not (file-exists-p temp-file))
+          (should logged)
+          (should-not (buffer-live-p buffer)))
+      (when (file-exists-p temp-file) (delete-file temp-file))
+      (when (buffer-live-p buffer) (kill-buffer buffer)))))
+
+(ert-deftest test-calendar-sync-fetch-sentinel-failure-tolerates-missing-temp-file ()
+  "Boundary: failure with the temp file already gone does not error."
+  (let ((temp-file (make-temp-file "calendar-sync-sentinel-" nil ".ics"))
+        (got 'unset))
+    (delete-file temp-file)
+    (cl-letf (((symbol-function 'calendar-sync--log-silently) #'ignore))
+      (calendar-sync--fetch-sentinel-finish
+       nil "failed\n" temp-file nil (lambda (r) (setq got r)))
+      (should (null got)))))
+
+(ert-deftest test-calendar-sync-fetch-sentinel-tolerates-dead-buffer ()
+  "Boundary: a already-dead process buffer is not touched on success."
+  (let ((temp-file (make-temp-file "calendar-sync-sentinel-" nil ".ics"))
+        (got 'unset))
+    (unwind-protect
+        (progn
+          (calendar-sync--fetch-sentinel-finish
+           t "finished\n" temp-file nil (lambda (r) (setq got r)))
+          (should (equal got temp-file)))
+      (when (file-exists-p temp-file) (delete-file temp-file)))))
+
+(provide 'test-calendar-sync-source-fetch-sentinel)
+;;; test-calendar-sync-source-fetch-sentinel.el ends here