;;; test-dashboard-config-launchers.el --- Tests for the dashboard launcher table -*- lexical-binding: t; -*-

;;; Commentary:
;; Locks the single-source launcher table that drives both the dashboard
;; navigator icon rows and the dashboard-mode-map keybindings.  The bug this
;; guards against: the icon row and the keymap were maintained as two separate
;; inline lists that could drift in order or wiring.  These tests assert the
;; table, the derived 3x4 navigator rows, and that every key binds to the
;; right command (including Music's two-call action).

;;; Code:

(require 'ert)
(require 'cl-lib)

(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(add-to-list 'load-path (expand-file-name "tests" user-emacs-directory))
(setq load-prefer-newer t)

;; deps dashboard-config pulls transitively / actions reference
(unless (fboundp 'cj/kill-all-other-buffers-and-windows)
  (defun cj/kill-all-other-buffers-and-windows () nil))
(unless (fboundp 'cj/make-buffer-undead) (defun cj/make-buffer-undead (_n) nil))
(defvar user-home-dir "/tmp/")

(require 'dashboard-config)

;; Telegram moved from "g" to "G" so "g" is free for dashboard refresh.
;; Signal ("S") added as the 14th launcher.
;; Weather ("w") added after Agenda as the 15th launcher (top-row daily glance).
(defconst test-dash--keys '("c" "d" "t" "a" "w" "r" "b" "f" "m" "e" "i" "G" "s" "l" "S"))

;; ----------------------------- launcher table --------------------------------

(ert-deftest test-dashboard-launchers-keys-in-order ()
  "Normal: 15 launchers with the expected keys in display order."
  (should (= 15 (length cj/dashboard--launchers)))
  (should (equal test-dash--keys (mapcar (lambda (l) (nth 0 l)) cj/dashboard--launchers))))

(ert-deftest test-dashboard-launchers-labels-in-order ()
  "Normal: labels in display order (Telegram and Slack reordered so Slack sits
next to Linear on the last navigator row)."
  (should (equal '("Code" "Files" "Terminal" "Agenda" "Weather" "Feeds" "Books"
                   "Flashcards" "Music" "Email" "IRC" "Telegram" "Slack" "Linear" "Signal")
                 (mapcar (lambda (l) (nth 3 l)) cj/dashboard--launchers))))

(ert-deftest test-dashboard-row-sizes-cover-all-launchers ()
  "Normal: the navigator row sizes sum to the launcher count."
  (should (= (length cj/dashboard--launchers)
             (apply #'+ cj/dashboard--row-sizes))))

;; --------------------------- navigator rows ----------------------------------

(ert-deftest test-dashboard-navigator-rows-grouped-5-4-3-3 ()
  "Normal: navigator derives rows per `cj/dashboard--row-sizes' (5 4 3 3), with
Weather joining the top row and Slack, Linear, and Signal sharing the last row."
  (cl-letf (((symbol-function 'nerd-icons-faicon)  (lambda (n &rest _) (concat "I:" n)))
            ((symbol-function 'nerd-icons-devicon) (lambda (n &rest _) (concat "I:" n)))
            ((symbol-function 'nerd-icons-mdicon)  (lambda (n &rest _) (concat "I:" n)))
            ((symbol-function 'nerd-icons-octicon) (lambda (n &rest _) (concat "I:" n)))
            ((symbol-function 'nerd-icons-codicon) (lambda (n &rest _) (concat "I:" n)))
            ((symbol-function 'nerd-icons-wicon)   (lambda (n &rest _) (concat "I:" n))))
    (let ((rows (cj/dashboard--navigator-rows)))
      (should (= 4 (length rows)))
      (should (equal '(5 4 3 3) (mapcar #'length rows)))
      (should (equal '("Code" "Files" "Terminal" "Agenda" "Weather")
                     (mapcar (lambda (b) (nth 1 b)) (nth 0 rows))))
      (should (equal '("Slack" "Linear" "Signal")
                     (mapcar (lambda (b) (nth 1 b)) (nth 3 rows))))
      (let ((btn (car (car rows))))            ; (icon label tooltip action nil " " "")
        (should (string= "I:nf-fa-code" (nth 0 btn)))
        (should (string= "Code" (nth 1 btn)))
        (should (functionp (nth 3 btn)))
        (should (null (nth 4 btn)))))))

;; ---------------------------- keymap binding ---------------------------------

(ert-deftest test-dashboard-bind-launchers-binds-every-key ()
  "Normal: every launcher key binds to a command; q is left to the caller."
  (let ((map (make-sparse-keymap)))
    (cj/dashboard--bind-launchers map)
    (dolist (key test-dash--keys)
      (should (commandp (keymap-lookup map key))))
    (should-not (keymap-lookup map "q"))))

(ert-deftest test-dashboard-bind-launchers-each-key-runs-its-command ()
  "Behavior: invoking each key runs its launcher's command(s) — Music runs two."
  (let ((map (make-sparse-keymap)) (calls nil))
    (cl-letf (((symbol-function 'projectile-switch-project) (lambda (&rest _) (push 'code calls)))
              ((symbol-function 'dirvish) (lambda (&rest _) (push 'files calls)))
              ((symbol-function 'cj/term-toggle) (lambda (&rest _) (push 'term calls)))
              ((symbol-function 'cj/main-agenda-display) (lambda (&rest _) (push 'agenda calls)))
              ((symbol-function 'cj/elfeed-open) (lambda (&rest _) (push 'feeds calls)))
              ((symbol-function 'calibredb) (lambda (&rest _) (push 'books calls)))
              ((symbol-function 'cj/drill-start) (lambda (&rest _) (push 'cards calls)))
              ((symbol-function 'cj/music-playlist-toggle) (lambda (&rest _) (push 'm-toggle calls)))
              ((symbol-function 'cj/music-playlist-load) (lambda (&rest _) (push 'm-load calls)))
              ((symbol-function 'mu4e) (lambda (&rest _) (push 'email calls)))
              ((symbol-function 'cj/erc-switch-to-buffer-with-completion) (lambda (&rest _) (push 'irc calls)))
              ((symbol-function 'cj/slack-start) (lambda (&rest _) (push 'slack calls)))
              ((symbol-function 'cj/telega) (lambda (&rest _) (push 'tg calls)))
              ((symbol-function 'pearl-list-issues) (lambda (&rest _) (push 'linear calls)))
              ((symbol-function 'cj/signel-message) (lambda (&rest _) (push 'signal calls)))
              ;; wttrin is invoked via `call-interactively', so the stub must be
              ;; a command -- a plain variadic lambda masked the real arity bug.
              ((symbol-function 'wttrin) (lambda (&rest _) (interactive) (push 'weather calls))))
      (cj/dashboard--bind-launchers map)
      (dolist (key test-dash--keys)
        (call-interactively (keymap-lookup map key)))
      (should (memq 'code calls))
      (should (memq 'tg calls))
      (should (memq 'linear calls))
      (should (memq 'm-toggle calls))
      (should (memq 'm-load calls))
      (should (memq 'signal calls))
      (should (memq 'weather calls))
      (should (= 16 (length calls))))))   ; 15 keys, Music fires two

(provide 'test-dashboard-config-launchers)
;;; test-dashboard-config-launchers.el ends here