blob: ea9ceb2633bf3c66c1ec78bcb9d1633ac9398582 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
;;; test-custom-buffer-file-keymap-bindings.el --- d/D bindings in the buffer-and-file keymap -*- lexical-binding: t; -*-
;;; Commentary:
;; `cj/buffer-and-file-map' should put the destructive op on the capital key and
;; the frequently-used op on the easy lowercase key: D = delete-buffer-and-file,
;; d = diff-buffer-with-file. Guards the swap against silently reverting.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
;; Stub dependencies before loading the module (mirrors the sibling tests).
(defvar cj/custom-keymap (make-sparse-keymap)
"Stub keymap for testing.")
(provide 'ps-print)
(require 'custom-buffer-file)
(ert-deftest test-custom-buffer-file-keymap-diff-on-lowercase-d ()
"Normal: lowercase d runs diff -- the frequently-used, non-destructive op."
(should (eq (keymap-lookup cj/buffer-and-file-map "d") #'cj/diff-buffer-with-file)))
(ert-deftest test-custom-buffer-file-keymap-delete-on-capital-d ()
"Normal: capital D runs delete -- the destructive op on the capital key."
(should (eq (keymap-lookup cj/buffer-and-file-map "D") #'cj/delete-buffer-and-file)))
(provide 'test-custom-buffer-file-keymap-bindings)
;;; test-custom-buffer-file-keymap-bindings.el ends here
|
