From ec8130cfe1a7390e9939b311c8db39907a3f7f44 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Fri, 20 Feb 2026 07:31:41 -0600
Subject: feat: mode-line: show hourglass placeholder before first weather
 fetch
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Display ⏳ with "Fetching weather..." tooltip immediately when
mode-line mode starts, so the user sees wttrin is active before
the first API response arrives.
---
 tests/test-wttrin--mode-line-update-display.el | 69 ++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)

(limited to 'tests/test-wttrin--mode-line-update-display.el')

diff --git a/tests/test-wttrin--mode-line-update-display.el b/tests/test-wttrin--mode-line-update-display.el
index 0bcb154..07ab73f 100644
--- a/tests/test-wttrin--mode-line-update-display.el
+++ b/tests/test-wttrin--mode-line-update-display.el
@@ -221,5 +221,74 @@
           (should (equal wttrin--mode-line-tooltip-data "Paris: ☀️ +61°F Clear"))))
     (test-wttrin--mode-line-update-display-teardown)))
 
+;;; --------------------------------------------------------------------------
+;;; wttrin--mode-line-set-placeholder
+;;; --------------------------------------------------------------------------
+
+;;; Normal Cases
+
+(ert-deftest test-wttrin--mode-line-set-placeholder-normal-sets-mode-line-string ()
+  "Placeholder sets wttrin-mode-line-string to non-nil."
+  (test-wttrin--mode-line-update-display-setup)
+  (unwind-protect
+      (let ((wttrin-favorite-location "Paris"))
+        (wttrin--mode-line-set-placeholder)
+        (should wttrin-mode-line-string))
+    (test-wttrin--mode-line-update-display-teardown)))
+
+(ert-deftest test-wttrin--mode-line-set-placeholder-normal-contains-hourglass ()
+  "Placeholder displays hourglass emoji."
+  (test-wttrin--mode-line-update-display-setup)
+  (unwind-protect
+      (let ((wttrin-favorite-location "Paris")
+            (wttrin-mode-line-emoji-font nil))
+        (wttrin--mode-line-set-placeholder)
+        (should (string-match-p "⏳" (substring-no-properties wttrin-mode-line-string))))
+    (test-wttrin--mode-line-update-display-teardown)))
+
+(ert-deftest test-wttrin--mode-line-set-placeholder-normal-has-fetching-tooltip ()
+  "Placeholder tooltip mentions fetching weather."
+  (test-wttrin--mode-line-update-display-setup)
+  (unwind-protect
+      (let ((wttrin-favorite-location "Paris"))
+        (wttrin--mode-line-set-placeholder)
+        (let ((tooltip (get-text-property 0 'help-echo wttrin-mode-line-string)))
+          (should (string-match-p "Fetching" tooltip))
+          (should (string-match-p "Paris" tooltip))))
+    (test-wttrin--mode-line-update-display-teardown)))
+
+(ert-deftest test-wttrin--mode-line-set-placeholder-normal-has-local-map ()
+  "Placeholder has mouse interaction keymap."
+  (test-wttrin--mode-line-update-display-setup)
+  (unwind-protect
+      (let ((wttrin-favorite-location "Paris"))
+        (wttrin--mode-line-set-placeholder)
+        (should (eq (get-text-property 0 'local-map wttrin-mode-line-string)
+                    wttrin--mode-line-map)))
+    (test-wttrin--mode-line-update-display-teardown)))
+
+(ert-deftest test-wttrin--mode-line-set-placeholder-normal-replaced-by-real-data ()
+  "Placeholder is replaced when real weather data arrives."
+  (test-wttrin--mode-line-update-display-setup)
+  (unwind-protect
+      (let ((wttrin-favorite-location "Paris")
+            (wttrin-mode-line-emoji-font nil))
+        (wttrin--mode-line-set-placeholder)
+        (should (string-match-p "⏳" (substring-no-properties wttrin-mode-line-string)))
+        (wttrin--mode-line-update-display "Paris: ☀️ +61°F Clear")
+        (should-not (string-match-p "⏳" (substring-no-properties wttrin-mode-line-string))))
+    (test-wttrin--mode-line-update-display-teardown)))
+
+;;; Boundary Cases
+
+(ert-deftest test-wttrin--mode-line-set-placeholder-boundary-does-not-set-tooltip-data ()
+  "Placeholder does not contaminate tooltip data variable."
+  (test-wttrin--mode-line-update-display-setup)
+  (unwind-protect
+      (let ((wttrin-favorite-location "Paris"))
+        (wttrin--mode-line-set-placeholder)
+        (should-not wttrin--mode-line-tooltip-data))
+    (test-wttrin--mode-line-update-display-teardown)))
+
 (provide 'test-wttrin--mode-line-update-display)
 ;;; test-wttrin--mode-line-update-display.el ends here
-- 
cgit v1.2.3