blob: 65db0c3cabf53a86b3a15e1a891a4e5f4c408042 (
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
|
;;; test-vc-config--gutter-hunk-candidates.el --- Tests for cj/--git-gutter-hunk-candidates -*- lexical-binding: t -*-
;;; Commentary:
;; Unit tests for cj/--git-gutter-hunk-candidates, the pure helper that
;; builds completion candidates (label . line) from git-gutter hunk start
;; lines against the current buffer's text. The interactive wrapper
;; cj/goto-git-gutter-diff-hunks maps git-gutter:diffinfos onto start
;; lines and delegates here.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'vc-config)
;;; Normal Cases
(ert-deftest test-vc-gutter-hunk-candidates-labels-carry-line-text ()
"Normal: each candidate label contains the hunk line's text."
(with-temp-buffer
(insert "alpha\nbravo\ncharlie\n")
(let ((candidates (cj/--git-gutter-hunk-candidates '(2 3))))
(should (= 2 (length candidates)))
(should (string-match-p "bravo" (car (nth 0 candidates))))
(should (string-match-p "charlie" (car (nth 1 candidates)))))))
(ert-deftest test-vc-gutter-hunk-candidates-cdr-is-start-line ()
"Normal: each candidate's cdr is the hunk's start line number."
(with-temp-buffer
(insert "alpha\nbravo\ncharlie\n")
(let ((candidates (cj/--git-gutter-hunk-candidates '(1 3))))
(should (equal '(1 3) (mapcar #'cdr candidates))))))
;;; Boundary Cases
(ert-deftest test-vc-gutter-hunk-candidates-empty-input-returns-nil ()
"Boundary: no hunks produce no candidates."
(with-temp-buffer
(insert "alpha\n")
(should (null (cj/--git-gutter-hunk-candidates '())))))
(ert-deftest test-vc-gutter-hunk-candidates-first-line ()
"Boundary: a hunk on line 1 resolves to the first line's text."
(with-temp-buffer
(insert "alpha\nbravo\n")
(let ((candidates (cj/--git-gutter-hunk-candidates '(1))))
(should (string-match-p "alpha" (caar candidates)))
(should (= 1 (cdar candidates))))))
(ert-deftest test-vc-gutter-hunk-candidates-unicode-line-text ()
"Boundary: line text with unicode survives into the label."
(with-temp-buffer
(insert "naïve — 日本語\n")
(let ((candidates (cj/--git-gutter-hunk-candidates '(1))))
(should (string-match-p "日本語" (caar candidates))))))
;;; Error Cases
(ert-deftest test-vc-goto-git-gutter-diff-hunks-no-hunks-user-error ()
"Error: the command signals `user-error' when the buffer has no hunks."
(with-temp-buffer
(setq-local git-gutter:diffinfos nil)
(cl-letf (((symbol-function 'require) (lambda (&rest _) nil)))
(should-error (cj/goto-git-gutter-diff-hunks) :type 'user-error))))
(provide 'test-vc-config--gutter-hunk-candidates)
;;; test-vc-config--gutter-hunk-candidates.el ends here
|
