diff options
| -rw-r--r-- | tests/test-ui-navigation-split-follow-undo-kill.el | 108 |
1 files changed, 108 insertions, 0 deletions
diff --git a/tests/test-ui-navigation-split-follow-undo-kill.el b/tests/test-ui-navigation-split-follow-undo-kill.el new file mode 100644 index 00000000..74c1e2fc --- /dev/null +++ b/tests/test-ui-navigation-split-follow-undo-kill.el @@ -0,0 +1,108 @@ +;;; test-ui-navigation-split-follow-undo-kill.el --- Tests for the split-and-follow + undo-kill-buffer commands -*- lexical-binding: t; -*- + +;;; Commentary: +;; Sibling tests cover `toggle-window-split' and the window-resize +;; sticky map. This file covers the remaining three commands: +;; +;; cj/split-and-follow-right +;; cj/split-and-follow-below +;; cj/undo-kill-buffer +;; +;; `split-window-*', `consult-buffer', `find-file', and `recentf' +;; primitives are stubbed. + +;;; Code: + +(require 'ert) +(require 'cl-lib) + +(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory)) +(require 'ui-navigation) + +;; Top-level defvar so let-bindings reach the dynamic var under +;; lexical scope. +(defvar recentf-mode nil) +(defvar recentf-list nil) + +;;; cj/split-and-follow-right + +(ert-deftest test-ui-navigation-split-right-splits-and-prompts () + "Normal: split-and-follow-right calls split-window-right then consult-buffer." + (let ((sequence nil)) + (cl-letf (((symbol-function 'split-window-right) + (lambda (&rest _) (push 'split sequence))) + ((symbol-function 'other-window) + (lambda (&rest _) (push 'other sequence))) + ((symbol-function 'consult-buffer) + (lambda (&rest _) (push 'consult sequence)))) + (cj/split-and-follow-right)) + (should (equal (reverse sequence) '(split other consult))))) + +;;; cj/split-and-follow-below + +(ert-deftest test-ui-navigation-split-below-splits-and-prompts () + "Normal: split-and-follow-below calls split-window-below then consult-buffer." + (let ((sequence nil)) + (cl-letf (((symbol-function 'split-window-below) + (lambda (&rest _) (push 'split sequence))) + ((symbol-function 'other-window) + (lambda (&rest _) (push 'other sequence))) + ((symbol-function 'consult-buffer) + (lambda (&rest _) (push 'consult sequence)))) + (cj/split-and-follow-below)) + (should (equal (reverse sequence) '(split other consult))))) + +;;; cj/undo-kill-buffer + +(ert-deftest test-ui-navigation-undo-kill-buffer-opens-most-recent () + "Normal: with no arg, opens the head of recentf-list that isn't currently visited." + (let ((opened nil) + (recentf-mode t) + (recentf-list '("/tmp/dead.org" "/tmp/alive.txt"))) + (cl-letf (((symbol-function 'require) (lambda (&rest _) t)) + ((symbol-function 'recentf-mode) (lambda (&rest _) t)) + ;; Pretend /tmp/alive.txt is open in some buffer. + ((symbol-function 'buffer-list) + (lambda (&rest _) + (list (let ((b (get-buffer-create "*test-alive*"))) + (with-current-buffer b + (setq buffer-file-name "/tmp/alive.txt")) + b)))) + ((symbol-function 'find-file) + (lambda (f) (setq opened f)))) + (unwind-protect + (cj/undo-kill-buffer 0) + (when (get-buffer "*test-alive*") (kill-buffer "*test-alive*")))) + (should (equal opened "/tmp/dead.org")))) + +(ert-deftest test-ui-navigation-undo-kill-buffer-honors-numeric-arg () + "Normal: with N=1, opens the second non-visited entry from recentf-list." + (let ((opened nil) + (recentf-mode t) + (recentf-list '("/tmp/a.org" "/tmp/b.org" "/tmp/c.org"))) + (cl-letf (((symbol-function 'require) (lambda (&rest _) t)) + ((symbol-function 'recentf-mode) (lambda (&rest _) t)) + ((symbol-function 'buffer-list) (lambda (&rest _) nil)) + ((symbol-function 'find-file) + (lambda (f) (setq opened f)))) + ;; cj/undo-kill-buffer takes a prefix `arg' and indexes into the list + ;; with `(nth arg ...)` when arg is non-nil. Passing 1 grabs the 2nd + ;; entry. + (cj/undo-kill-buffer 1)) + (should (equal opened "/tmp/b.org")))) + +(ert-deftest test-ui-navigation-undo-kill-buffer-no-op-when-list-empty () + "Boundary: when the recently-killed list is empty, find-file isn't called." + (let ((opened nil) + (recentf-mode t) + (recentf-list nil)) + (cl-letf (((symbol-function 'require) (lambda (&rest _) t)) + ((symbol-function 'recentf-mode) (lambda (&rest _) t)) + ((symbol-function 'buffer-list) (lambda (&rest _) nil)) + ((symbol-function 'find-file) + (lambda (f) (setq opened f)))) + (cj/undo-kill-buffer 0)) + (should-not opened))) + +(provide 'test-ui-navigation-split-follow-undo-kill) +;;; test-ui-navigation-split-follow-undo-kill.el ends here |