1 files changed, 53 insertions, 0 deletions
diff --git a/tests/test-org-roam-config-save-daily.el b/tests/test-org-roam-config-save-daily.el
new file mode 100644
index 00000000..f730eea5
--- /dev/null
+++ b/tests/test-org-roam-config-save-daily.el
@@ -0,0 +1,53 @@
+;;; test-org-roam-config-save-daily.el --- Tests for the daily-save helper -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; `cj/--org-roam-save-daily' saves the daily's visiting buffer when it has
+;; unsaved changes, so a freshly-copied completed task is never lost to a
+;; crash and shutdown never prompts about an unsaved journal buffer.  The save
+;; runs whether or not the copy needed an `org-refile' (the previous version
+;; only saved in the refile branch).  `save-buffer' is stubbed (file-I/O
+;; boundary) so the tests assert the modified-guard, not actual disk writes.
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'org-roam-config)
+
+(ert-deftest test-org-roam-save-daily-saves-modified-buffer ()
+  "Normal: a modified visiting buffer is saved."
+  (let ((f (make-temp-file "test-daily" nil ".org")) (saved 0))
+    (unwind-protect
+        (progn
+          (with-current-buffer (find-file-noselect f)
+            (insert "x") (set-buffer-modified-p t))
+          (cl-letf (((symbol-function 'save-buffer)
+                     (lambda (&rest _) (cl-incf saved) (set-buffer-modified-p nil))))
+            (cj/--org-roam-save-daily f))
+          (should (= 1 saved)))
+      (when (find-buffer-visiting f) (kill-buffer (find-buffer-visiting f)))
+      (delete-file f))))
+
+(ert-deftest test-org-roam-save-daily-skips-unmodified-buffer ()
+  "Boundary: an unmodified visiting buffer is not saved."
+  (let ((f (make-temp-file "test-daily" nil ".org")) (saved 0))
+    (unwind-protect
+        (progn
+          (with-current-buffer (find-file-noselect f) (set-buffer-modified-p nil))
+          (cl-letf (((symbol-function 'save-buffer) (lambda (&rest _) (cl-incf saved))))
+            (cj/--org-roam-save-daily f))
+          (should (= 0 saved)))
+      (when (find-buffer-visiting f) (kill-buffer (find-buffer-visiting f)))
+      (delete-file f))))
+
+(ert-deftest test-org-roam-save-daily-no-visiting-buffer-noop ()
+  "Boundary: a file with no visiting buffer is a safe no-op."
+  (let ((saved 0))
+    (cl-letf (((symbol-function 'save-buffer) (lambda (&rest _) (cl-incf saved))))
+      (cj/--org-roam-save-daily "/nonexistent/no-buffer-here.org"))
+    (should (= 0 saved))))
+
+(provide 'test-org-roam-config-save-daily)
+;;; test-org-roam-config-save-daily.el ends here