;;; test-wttrin--mode-line-map.el --- Tests for wttrin--mode-line-map -*- lexical-binding: t; -*-

;; Copyright (C) 2024-2026 Craig Jennings

;;; Commentary:
;; Unit tests for wttrin--mode-line-map keymap.
;; Tests verify the keymap exists and has correct keybindings after refactoring.

;;; Code:

(require 'ert)
(require 'wttrin)
(require 'testutil-wttrin)

;;; Setup and Teardown

(defun test-wttrin--mode-line-map-setup ()
  "Setup for mode-line-map tests."
  (testutil-wttrin-setup))

(defun test-wttrin--mode-line-map-teardown ()
  "Teardown for mode-line-map tests."
  (testutil-wttrin-teardown))

;;; Normal Cases - Keymap Existence and Structure

(ert-deftest test-wttrin--mode-line-map-normal-defvar-exists-returns-true ()
  "Test that wttrin--mode-line-map defvar exists after refactoring."
  (should (boundp 'wttrin--mode-line-map)))

(ert-deftest test-wttrin--mode-line-map-normal-value-is-keymap-returns-true ()
  "Test that wttrin--mode-line-map is actually a keymap."
  (should (keymapp wttrin--mode-line-map)))

(ert-deftest test-wttrin--mode-line-map-normal-structure-is-sparse-keymap ()
  "Test that wttrin--mode-line-map is a sparse keymap."
  ;; Sparse keymaps start with 'keymap symbol
  (should (eq 'keymap (car wttrin--mode-line-map))))

;;; Keybinding Tests

(ert-deftest test-wttrin--mode-line-map-normal-mouse-1-bound-to-click ()
  "Test that left-click (mouse-1) is bound to wttrin-mode-line-click."
  (let ((binding (lookup-key wttrin--mode-line-map [mode-line mouse-1])))
    (should (eq binding 'wttrin-mode-line-click))))

(ert-deftest test-wttrin--mode-line-map-normal-mouse-3-bound-to-force-refresh ()
  "Test that right-click (mouse-3) is bound to wttrin-mode-line-force-refresh."
  (let ((binding (lookup-key wttrin--mode-line-map [mode-line mouse-3])))
    (should (eq binding 'wttrin-mode-line-force-refresh))))

;;; Boundary Cases - Verify No Unexpected Bindings

(ert-deftest test-wttrin--mode-line-map-boundary-mouse-2-has-no-binding ()
  "Test that middle-click (mouse-2) has no binding."
  (let ((binding (lookup-key wttrin--mode-line-map [mode-line mouse-2])))
    ;; Should return nil (unbound) or a prefix keymap
    (should-not (and binding (symbolp binding)))))

(ert-deftest test-wttrin--mode-line-map-boundary-keymap-has-expected-binding-count ()
  "Test that keymap has the expected bindings."
  ;; Count non-nil entries in keymap
  (let ((count 0))
    (map-keymap (lambda (_key _binding)
                  (setq count (1+ count)))
                wttrin--mode-line-map)
    ;; Should have at least 1 binding (could be 1 or 2 depending on how
    ;; Emacs internally structures the keymap with [mode-line mouse-N])
    ;; The important thing is both mouse-1 and mouse-3 are accessible
    (should (>= count 1))))

;;; Integration Test - Verify Mode-Line Uses the Keymap

(ert-deftest test-wttrin--mode-line-map-normal-display-uses-shared-keymap ()
  "Test that mode-line display uses wttrin--mode-line-map after refactoring.
This test verifies the refactoring eliminated inline keymap construction."
  ;; Set up minimal mode-line state
  (let ((wttrin-favorite-location "Test, CA"))
    (cl-letf (((symbol-function 'float-time) (lambda () 1000.0)))
      (setq wttrin--mode-line-cache (cons 1000.0 "Test, CA: ☀️ +61°F Clear"))
      (wttrin--mode-line-update-display))

    ;; Extract the keymap property from wttrin-mode-line-string
    (let ((keymap-prop (get-text-property 0 'local-map wttrin-mode-line-string)))
      ;; After refactoring, should use the shared wttrin--mode-line-map
      ;; Not a freshly constructed keymap on each call
      (should (eq keymap-prop wttrin--mode-line-map)))
    (setq wttrin--mode-line-cache nil)))

(provide 'test-wttrin--mode-line-map)
;;; test-wttrin--mode-line-map.el ends here