diff options
| author | Craig Jennings <c@cjennings.net> | 2026-05-03 21:34:05 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-05-03 21:34:05 -0500 |
| commit | 19009bf5ae3ab1bae2ef16c5e4b77a11e8ccb6ba (patch) | |
| tree | 1cc58767e5d08b72ef493446eaf4e13d75b077c2 /tests | |
| parent | 47a9212d5347a4db93d213debccfbf9597259a81 (diff) | |
| download | dotemacs-19009bf5ae3ab1bae2ef16c5e4b77a11e8ccb6ba.tar.gz dotemacs-19009bf5ae3ab1bae2ef16c5e4b77a11e8ccb6ba.zip | |
refactor: drop dead intermediate C-s binding in selection-framework
`selection-framework.el` had two `keymap-global-set "C-s"` calls at module load. The first bound `C-s` to `consult-line`, then a later block rebound the same key to `cj/consult-line-or-repeat`. The second binding always won, so the first was dead configuration and made the file harder to reason about.
I removed the intermediate `consult-line` binding. The final `cj/consult-line-or-repeat` binding stays. Behavior is unchanged.
I added `tests/test-selection-framework-keybindings.el` with one smoke test: load the module with `use-package`, `consult-line`, and `vertico-repeat` stubbed, then assert `C-s` resolves to `cj/consult-line-or-repeat`. That locks in the cleanup so a future re-add of the dead binding would fail the test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-selection-framework-keybindings.el | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/test-selection-framework-keybindings.el b/tests/test-selection-framework-keybindings.el new file mode 100644 index 000000000..8fb8b3df9 --- /dev/null +++ b/tests/test-selection-framework-keybindings.el @@ -0,0 +1,30 @@ +;;; test-selection-framework-keybindings.el --- Tests for selection framework keys -*- lexical-binding: t; -*- + +;;; Commentary: +;; Smoke coverage for the final search binding owned by selection-framework.el. + +;;; Code: + +(require 'ert) + +(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) + +(ert-deftest test-selection-framework-c-s-runs-consult-line-or-repeat () + "C-s should resolve to the final consult-line-or-repeat command." + (should (eq (key-binding (kbd "C-s")) + #'cj/consult-line-or-repeat))) + +(provide 'test-selection-framework-keybindings) +;;; test-selection-framework-keybindings.el ends here |
