1 files changed, 52 insertions, 0 deletions
diff --git a/tests/test-google-keep-config--local-config.el b/tests/test-google-keep-config--local-config.el
new file mode 100644
index 00000000..18769c5a
--- /dev/null
+++ b/tests/test-google-keep-config--local-config.el
@@ -0,0 +1,52 @@
+;;; test-google-keep-config--local-config.el --- Tests for the Keep machine-local config loader -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for cj/keep--load-local-config, the loader for the gitignored
+;; machine-local google-keep.local.el (venv interpreter path, account email) —
+;; the same shape calendar-sync uses for calendar-sync.local.el.
+
+;;; Code:
+
+(require 'ert)
+(require 'google-keep-config)
+
+(ert-deftest test-google-keep-local-config-loads-readable-file ()
+  "Normal: a readable local config file is loaded and its settings apply."
+  (let ((file (make-temp-file "keep-local-" nil ".el")))
+    (unwind-protect
+        (progn
+          (with-temp-file file
+            (insert "(setq test-google-keep--local-marker 'loaded)"))
+          (defvar test-google-keep--local-marker nil)
+          (setq test-google-keep--local-marker nil)
+          (let ((cj/keep-local-config-file file))
+            (should (cj/keep--load-local-config))
+            (should (eq test-google-keep--local-marker 'loaded))))
+      (delete-file file))))
+
+(ert-deftest test-google-keep-local-config-missing-file-is-quiet ()
+  "Boundary: an absent local config file is a silent no-op, no error."
+  (let ((cj/keep-local-config-file "/nonexistent/google-keep.local.el"))
+    (should-not (cj/keep--load-local-config))))
+
+(ert-deftest test-google-keep-local-config-broken-file-does-not-signal ()
+  "Error: a local config file with a broken form is caught and reported,
+never propagated as a load-time error."
+  (let ((file (make-temp-file "keep-local-broken-" nil ".el"))
+        (messages nil))
+    (unwind-protect
+        (progn
+          (with-temp-file file
+            (insert "(error \"deliberately broken local config\")"))
+          (let ((cj/keep-local-config-file file))
+            (cl-letf (((symbol-function 'message)
+                       (lambda (fmt &rest args)
+                         (push (apply #'format fmt args) messages)
+                         nil)))
+              (should-not (cj/keep--load-local-config)))
+            (should (seq-find (lambda (m) (string-match-p "google-keep.*local config" m))
+                              messages))))
+      (delete-file file))))
+
+(provide 'test-google-keep-config--local-config)
+;;; test-google-keep-config--local-config.el ends here