1 files changed, 89 insertions, 0 deletions
diff --git a/tests/test-calendar-sync--batch-report.el b/tests/test-calendar-sync--batch-report.el
new file mode 100644
index 00000000..12811200
--- /dev/null
+++ b/tests/test-calendar-sync--batch-report.el
@@ -0,0 +1,89 @@
+;;; test-calendar-sync--batch-report.el --- Batch report output tests  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; `calendar-sync-batch-run-and-report' is what the systemd timer runs, so its
+;; printed rows are the only record that survives the process.  Batch Emacs
+;; discards *Messages* at exit, which is where the interactive failure path
+;; logs its reason -- so a failed row has to carry its recorded `:last-error'
+;; in the printed output or the journal shows "error" with no way to tell a
+;; cold gpg-agent from a revoked feed token or a dead network.
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)  ;; cl-letf; calendar-sync pulls it in transitively, don't rely on that
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'calendar-sync)
+
+(defun test-calendar-sync-batch-report--capture (states results)
+  "Return the report's printed output for STATES and RESULTS.
+STATES is an alist of NAME . PLIST seeded into the state table; RESULTS is
+what `calendar-sync-batch-run' is stubbed to return, so the report is
+exercised without driving a real sync."
+  (let ((calendar-sync--calendar-states (make-hash-table :test 'equal)))
+    (dolist (entry states)
+      (puthash (car entry) (cdr entry) calendar-sync--calendar-states))
+    (cl-letf (((symbol-function 'calendar-sync-batch-run)
+               (lambda (&rest _) results)))
+      (with-output-to-string
+        (calendar-sync-batch-run-and-report)))))
+
+;;; Normal
+
+(ert-deftest test-calendar-sync-batch-report-failed-row-carries-its-reason ()
+  "Normal: a failed calendar prints the recorded `:last-error' reason.
+Without it the journal records only \"error\", and the operator cannot tell a
+cold gpg-agent from a revoked token without re-running the sync by hand."
+  (let ((out (test-calendar-sync-batch-report--capture
+              '(("google" . (:status error :last-error "Decryption failed"))
+                ("proton" . (:status ok)))
+              '(("google" . error) ("proton" . ok)))))
+    (should (string-match-p "google: error" out))
+    (should (string-match-p "Decryption failed" out))))
+
+(ert-deftest test-calendar-sync-batch-report-ok-row-stays-bare ()
+  "Normal: a calendar that synced prints its status and nothing more.
+A stale `:last-error' from an earlier failure must not be appended to a row
+that succeeded this run."
+  (let ((out (test-calendar-sync-batch-report--capture
+              '(("google" . (:status ok :last-error "Decryption failed")))
+              '(("google" . ok)))))
+    (should (string-match-p "google: ok" out))
+    (should-not (string-match-p "Decryption failed" out))))
+
+;;; Boundary
+
+(ert-deftest test-calendar-sync-batch-report-failure-without-reason-still-prints ()
+  "Boundary: a failed row with no recorded reason prints its status alone.
+`never' and `syncing' never record a `:last-error', so the reason lookup has
+to tolerate nil rather than printing \"nil\" or signalling."
+  (let ((out (test-calendar-sync-batch-report--capture
+              '(("google" . (:status syncing)))
+              '(("google" . syncing) ("absent" . never)))))
+    (should (string-match-p "google: syncing" out))
+    (should (string-match-p "absent: never" out))
+    (should-not (string-match-p "nil" out))))
+
+;;; Error
+
+(defun test-calendar-sync-batch-report--exit-code (results)
+  "Return the report's exit code for RESULTS, discarding its printed output."
+  (let ((calendar-sync--calendar-states (make-hash-table :test 'equal)))
+    (cl-letf (((symbol-function 'calendar-sync-batch-run)
+               (lambda (&rest _) results)))
+      (with-temp-buffer
+        (let ((standard-output (current-buffer)))
+          (calendar-sync-batch-run-and-report))))))
+
+(ert-deftest test-calendar-sync-batch-report-exit-code-tracks-failures ()
+  "Error: the return value becomes the process exit code, so it stays 1 on any
+non-ok row and 0 only when every calendar synced.  Appending the reason to the
+printed line must not disturb it."
+  (should (equal 1 (test-calendar-sync-batch-report--exit-code '(("google" . error)))))
+  (should (equal 1 (test-calendar-sync-batch-report--exit-code
+                    '(("google" . ok) ("proton" . never)))))
+  (should (equal 0 (test-calendar-sync-batch-report--exit-code '(("google" . ok))))))
+
+(provide 'test-calendar-sync--batch-report)
+;;; test-calendar-sync--batch-report.el ends here