1 files changed, 68 insertions, 0 deletions
diff --git a/tests/test-selection-framework--consult-line-or-repeat.el b/tests/test-selection-framework--consult-line-or-repeat.el
new file mode 100644
index 000000000..fcaddcfd0
--- /dev/null
+++ b/tests/test-selection-framework--consult-line-or-repeat.el
@@ -0,0 +1,68 @@
+;;; test-selection-framework--consult-line-or-repeat.el --- Tests for the C-s dispatch -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; `cj/consult-line-or-repeat' (bound to `C-s') runs `consult-line', or
+;; `vertico-repeat' when it was also the previous command -- so a second press
+;; in a row repeats the last search instead of starting a fresh one.  These
+;; tests exercise both branches with `consult-line' / `vertico-repeat' stubbed.
+;;
+;; Like `test-selection-framework-keybindings.el', this shadows `use-package'
+;; with a no-op so the module loads without pulling in vertico/consult/embark/
+;; company/prescient and their load-time side effects.
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+
+(defmacro use-package (&rest _args)
+  "Ignore package configuration while loading selection-framework in tests."
+  nil)
+
+(defun consult-line (&rest _args)
+  "Test stub for `consult-line'.")
+(defun vertico-repeat (&rest _args)
+  "Test stub for `vertico-repeat'.")
+
+(require 'selection-framework)
+
+(defmacro test-sf--with-spies (&rest body)
+  "Run BODY with `consult-line' and `vertico-repeat' recording into
+`consulted' and `repeated', both bound to nil first."
+  `(let (consulted repeated)
+     (cl-letf (((symbol-function 'consult-line) (lambda (&rest _) (setq consulted t)))
+               ((symbol-function 'vertico-repeat) (lambda (&rest _) (setq repeated t))))
+       ,@body)))
+
+(ert-deftest test-selection-framework-consult-line-or-repeat-fresh-search ()
+  "Normal: when the previous command was something else, do a fresh `consult-line'."
+  (test-sf--with-spies
+   (let ((last-command 'some-other-command))
+     (cj/consult-line-or-repeat))
+   (should consulted)
+   (should-not repeated)))
+
+(ert-deftest test-selection-framework-consult-line-or-repeat-repeats-on-second-call ()
+  "Normal: a second invocation in a row repeats the last search."
+  (test-sf--with-spies
+   (let ((last-command 'cj/consult-line-or-repeat))
+     (cj/consult-line-or-repeat))
+   (should repeated)
+   (should-not consulted)))
+
+(ert-deftest test-selection-framework-consult-line-or-repeat-nil-last-command ()
+  "Boundary: nil `last-command' is not a repeat -> fresh search."
+  (test-sf--with-spies
+   (let ((last-command nil))
+     (cj/consult-line-or-repeat))
+   (should consulted)
+   (should-not repeated)))
+
+(ert-deftest test-selection-framework-consult-line-or-repeat-is-a-command ()
+  "Normal: `cj/consult-line-or-repeat' is an interactive command."
+  (should (commandp #'cj/consult-line-or-repeat)))
+
+(provide 'test-selection-framework--consult-line-or-repeat)
+;;; test-selection-framework--consult-line-or-repeat.el ends here