1 files changed, 90 insertions, 0 deletions
diff --git a/tests/test-ui-navigation--split-dashboard.el b/tests/test-ui-navigation--split-dashboard.el
new file mode 100644
index 000000000..407335f80
--- /dev/null
+++ b/tests/test-ui-navigation--split-dashboard.el
@@ -0,0 +1,90 @@
+;;; test-ui-navigation--split-dashboard.el --- Tests for split-with-dashboard -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; C-x 2 / C-x 3 split and show the *dashboard* in the new window while point
+;; stays in the original.  cj/--split-show-buffer does the placement;
+;; cj/split-below/right-with-dashboard wire it to the two split directions.
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'ui-navigation)
+
+(ert-deftest test-ui-navigation-split-dashboard-keybindings ()
+  "Normal: C-x 2 / C-x 3 are bound to the dashboard-split commands."
+  (should (eq (key-binding (kbd "C-x 2")) #'cj/split-below-with-dashboard))
+  (should (eq (key-binding (kbd "C-x 3")) #'cj/split-right-with-dashboard)))
+
+(ert-deftest test-ui-navigation-split-show-buffer-displays-and-keeps-point ()
+  "Normal: the new window shows the buffer; the original stays selected."
+  (let ((buf (get-buffer-create " *split-dash-test*"))
+        (config (current-window-configuration)))
+    (unwind-protect
+        (progn
+          (delete-other-windows)
+          (let* ((orig (selected-window))
+                 (new (cj/--split-show-buffer #'split-window-below buf)))
+            (should (window-live-p new))
+            (should (not (eq new orig)))
+            (should (eq (window-buffer new) buf))
+            (should (eq (selected-window) orig)))) ; point stays put
+      (set-window-configuration config)
+      (kill-buffer buf))))
+
+(ert-deftest test-ui-navigation-split-below-routes-to-split-window-below ()
+  "Normal: cj/split-below-with-dashboard splits below with the dashboard buffer."
+  (let (captured)
+    (cl-letf (((symbol-function 'cj/--dashboard-buffer) (lambda () 'dashboard))
+              ((symbol-function 'cj/--split-show-buffer)
+               (lambda (fn buf) (setq captured (list fn buf)) nil)))
+      (cj/split-below-with-dashboard))
+    (should (eq (car captured) #'split-window-below))
+    (should (eq (cadr captured) 'dashboard))))
+
+(ert-deftest test-ui-navigation-split-right-routes-to-split-window-right ()
+  "Normal: cj/split-right-with-dashboard splits right with the dashboard buffer."
+  (let (captured)
+    (cl-letf (((symbol-function 'cj/--dashboard-buffer) (lambda () 'dashboard))
+              ((symbol-function 'cj/--split-show-buffer)
+               (lambda (fn buf) (setq captured (list fn buf)) nil)))
+      (cj/split-right-with-dashboard))
+    (should (eq (car captured) #'split-window-right))
+    (should (eq (cadr captured) 'dashboard))))
+
+(ert-deftest test-ui-navigation-split-from-dashboard-p ()
+  "Normal/Boundary: only the dashboard buffer routes the companion to *scratch*."
+  (should (cj/--split-from-dashboard-p "*dashboard*"))
+  (should-not (cj/--split-from-dashboard-p "todo.org"))
+  (should-not (cj/--split-from-dashboard-p "*scratch*")))
+
+(ert-deftest test-ui-navigation-split-companion-scratch-from-dashboard ()
+  "Normal: splitting from the dashboard yields the *scratch* buffer, not the
+dashboard again."
+  (cl-letf (((symbol-function 'cj/--split-from-dashboard-p) (lambda (_) t))
+            ((symbol-function 'get-scratch-buffer-create) (lambda () 'scratch))
+            ((symbol-function 'cj/--dashboard-buffer) (lambda () 'dashboard)))
+    (should (eq (cj/--split-companion-buffer) 'scratch))))
+
+(ert-deftest test-ui-navigation-split-companion-dashboard-otherwise ()
+  "Normal: splitting from any other buffer yields the dashboard."
+  (cl-letf (((symbol-function 'cj/--split-from-dashboard-p) (lambda (_) nil))
+            ((symbol-function 'get-scratch-buffer-create) (lambda () 'scratch))
+            ((symbol-function 'cj/--dashboard-buffer) (lambda () 'dashboard)))
+    (should (eq (cj/--split-companion-buffer) 'dashboard))))
+
+(ert-deftest test-ui-navigation-dashboard-buffer-returns-existing ()
+  "Boundary: cj/--dashboard-buffer returns an existing *dashboard* without opening."
+  (let ((db (get-buffer-create "*dashboard*"))
+        (opened nil))
+    (unwind-protect
+        (cl-letf (((symbol-function 'dashboard-open)
+                   (lambda (&rest _) (setq opened t))))
+          (should (eq (cj/--dashboard-buffer) db))
+          (should-not opened))
+      (kill-buffer db))))
+
+(provide 'test-ui-navigation--split-dashboard)
+;;; test-ui-navigation--split-dashboard.el ends here