blob: dbd36a81197ecf31a7e3df82d757e4a9e2ee036d (
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
;;; test-dirvish-config-resolve-display-path.el --- Tests for the path-resolution helper -*- lexical-binding: t; -*-
;;; Commentary:
;; `cj/--dired-resolve-display-path' is the pure logic underneath
;; `cj/dired-copy-path-as-kill'. Given the absolute FILE, the active
;; PROJECT-ROOT (or nil), the user's HOME-DIR, and a FORCE-ABSOLUTE
;; flag, the helper returns a (PATH . PATH-TYPE) cons describing what
;; to copy and how to label it. The interactive wrapper does the
;; clipboard write and the user-visible message.
;;; Code:
(require 'ert)
(require 'package)
(setq package-user-dir (expand-file-name "elpa" user-emacs-directory))
(package-initialize)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(add-to-list 'load-path (expand-file-name "elpa/dirvish-2.3.0/extensions"
user-emacs-directory))
(require 'user-constants)
(require 'keybindings)
(require 'dirvish-config)
(ert-deftest test-cj--dired-resolve-display-path-project-relative ()
"Normal: file inside a project returns a project-relative path."
(should (equal (cj/--dired-resolve-display-path
"/home/me/code/proj/src/main.el"
"/home/me/code/proj/"
"/home/me")
(cons "src/main.el" "project-relative"))))
(ert-deftest test-cj--dired-resolve-display-path-home-relative ()
"Normal: file under home but not in any project returns a ~/-prefixed path."
(should (equal (cj/--dired-resolve-display-path
"/home/me/notes/today.org"
nil
"/home/me")
(cons "~/notes/today.org" "home-relative"))))
(ert-deftest test-cj--dired-resolve-display-path-home-itself ()
"Boundary: file IS the home dir -> path is the bare ~ glyph."
(should (equal (cj/--dired-resolve-display-path
"/home/me"
nil
"/home/me")
(cons "~" "home-relative"))))
(ert-deftest test-cj--dired-resolve-display-path-absolute-fallback ()
"Boundary: file outside home and no project -> absolute path."
(should (equal (cj/--dired-resolve-display-path
"/etc/hosts"
nil
"/home/me")
(cons "/etc/hosts" "absolute"))))
(ert-deftest test-cj--dired-resolve-display-path-force-absolute-overrides-project ()
"Normal: FORCE-ABSOLUTE wins over an active project root."
(should (equal (cj/--dired-resolve-display-path
"/home/me/code/proj/src/main.el"
"/home/me/code/proj/"
"/home/me"
t)
(cons "/home/me/code/proj/src/main.el" "absolute"))))
(ert-deftest test-cj--dired-resolve-display-path-force-absolute-overrides-home ()
"Normal: FORCE-ABSOLUTE wins over a home-prefix match."
(should (equal (cj/--dired-resolve-display-path
"/home/me/notes/today.org"
nil
"/home/me"
t)
(cons "/home/me/notes/today.org" "absolute"))))
(ert-deftest test-cj--dired-resolve-display-path-project-precedes-home ()
"Normal: when a file is BOTH inside a project and under home, the project
view wins. This matches the original code -- projects are usually under
home and the project-relative form reads more usefully."
(should (equal (cj/--dired-resolve-display-path
"/home/me/code/proj/src/main.el"
"/home/me/code/proj/"
"/home/me")
(cons "src/main.el" "project-relative"))))
(provide 'test-dirvish-config-resolve-display-path)
;;; test-dirvish-config-resolve-display-path.el ends here
|
