blob: ee72a0bbdc5da70edac86576fa65c33d67c41403 (
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
;;; test-vterm-copy-mode-cursor.el --- Tests for cursor visibility in vterm-copy-mode -*- lexical-binding: t; -*-
;;; Commentary:
;; vterm's C module sets `cursor-type' to nil when the underlying TUI
;; sends DECTCEM (`\e[?25l'). Most full-screen TUIs (Claude Code, htop,
;; etc.) hide the cursor on startup. In `vterm-copy-mode' the user is
;; navigating the buffer, not watching the TUI, so the cursor must be
;; forced visible -- the hook in `vterm-config.el' handles that. On
;; exit, the buffer-local override is killed so the live terminal goes
;; back to the TUI's chosen cursor state.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(defvar vterm-copy-mode nil)
(require 'vterm-config)
(ert-deftest test-vterm-copy-mode-cursor-restored-on-enter ()
"Normal: entering copy-mode with cursor-type nil sets a visible cursor."
(with-temp-buffer
(setq-local cursor-type nil)
(let ((vterm-copy-mode t))
(cj/--vterm-copy-mode-restore-cursor))
(should (equal cursor-type '(bar . 3)))))
(ert-deftest test-vterm-copy-mode-cursor-restored-when-prior-was-box ()
"Boundary: entering copy-mode overrides any prior cursor-type with the bar."
(with-temp-buffer
(setq-local cursor-type 'box)
(let ((vterm-copy-mode t))
(cj/--vterm-copy-mode-restore-cursor))
(should (equal cursor-type '(bar . 3)))))
(ert-deftest test-vterm-copy-mode-cursor-override-killed-on-exit ()
"Normal: exiting copy-mode kills the buffer-local cursor-type override."
(with-temp-buffer
(setq-local cursor-type '(bar . 3))
(should (local-variable-p 'cursor-type))
(let ((vterm-copy-mode nil))
(cj/--vterm-copy-mode-restore-cursor))
(should-not (local-variable-p 'cursor-type))))
(ert-deftest test-vterm-copy-mode-cursor-hook-installed ()
"Normal: the cursor-restoration hook is registered on vterm-copy-mode-hook."
(should (memq #'cj/--vterm-copy-mode-restore-cursor
vterm-copy-mode-hook)))
(provide 'test-vterm-copy-mode-cursor)
;;; test-vterm-copy-mode-cursor.el ends here
|
