blob: 6ba7985c2d1b293fa3d9813aefce1e78479e6940 (
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
|
;;; test-modeline-config-vc-cache-key.el --- Tests for VC modeline cache key -*- lexical-binding: t; -*-
;;; Commentary:
;; The VC modeline cache keys on the file path and the `cj/modeline-vc-show-remote'
;; flag only. `file-truename' is deliberately NOT in the key: it would run on
;; every redisplay (the mode-line rebuilds the key each render to check validity),
;; and a moved symlink target is picked up at the next TTL refresh anyway, since
;; `vc-backend' resolves the link fresh. The per-render stat isn't worth it.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'modeline-config)
(ert-deftest test-modeline-vc-cache-key-is-file-and-show-remote ()
"Normal: the key is (FILE SHOW-REMOTE), with no per-render file-truename stat."
(let ((cj/modeline-vc-show-remote nil))
(should (equal (cj/modeline-vc-cache-key "/x/y.el") '("/x/y.el" nil)))))
(ert-deftest test-modeline-vc-cache-key-tracks-show-remote ()
"Boundary: toggling show-remote yields a different key (separate cache entry)."
(should-not (equal (let ((cj/modeline-vc-show-remote nil))
(cj/modeline-vc-cache-key "/x/y.el"))
(let ((cj/modeline-vc-show-remote t))
(cj/modeline-vc-cache-key "/x/y.el")))))
(ert-deftest test-modeline-vc-cache-key-stable-for-same-file ()
"Boundary: the key is stable across calls for an unchanged file + show-remote."
(let ((cj/modeline-vc-show-remote nil))
(should (equal (cj/modeline-vc-cache-key "/x/y.el")
(cj/modeline-vc-cache-key "/x/y.el")))))
(provide 'test-modeline-config-vc-cache-key)
;;; test-modeline-config-vc-cache-key.el ends here
|
