|
150
|
1 ;;; clang-include-fixer-test.el --- unit tests for clang-include-fixer.el -*- lexical-binding: t; -*-
|
|
|
2
|
|
|
3 ;;; Commentary:
|
|
|
4
|
|
|
5 ;; Unit tests for clang-include-fixer.el.
|
|
|
6
|
|
|
7 ;;; Code:
|
|
|
8
|
|
|
9 (require 'clang-include-fixer)
|
|
|
10
|
|
|
11 (require 'cc-mode)
|
|
|
12 (require 'ert)
|
|
|
13
|
|
|
14 (ert-deftest clang-include-fixer--insert-line ()
|
|
|
15 "Unit test for `clang-include-fixer--insert-line'."
|
|
|
16 (with-temp-buffer
|
|
|
17 (insert "aa\nab\nac\nad\n")
|
|
|
18 (let ((from (current-buffer)))
|
|
|
19 (with-temp-buffer
|
|
|
20 (insert "aa\nac\nad\n")
|
|
|
21 (let ((to (current-buffer)))
|
|
|
22 (should (clang-include-fixer--insert-line from to))
|
|
|
23 (should (equal (buffer-string) "aa\nab\nac\nad\n")))))
|
|
|
24 (should (equal (buffer-string) "aa\nab\nac\nad\n"))))
|
|
|
25
|
|
|
26 (ert-deftest clang-include-fixer--insert-line-diff-on-empty-line ()
|
|
|
27 "Unit test for `clang-include-fixer--insert-line'."
|
|
|
28 (with-temp-buffer
|
|
|
29 (insert "aa\nab\n\nac\nad\n")
|
|
|
30 (let ((from (current-buffer)))
|
|
|
31 (with-temp-buffer
|
|
|
32 (insert "aa\n\nac\nad\n")
|
|
|
33 (let ((to (current-buffer)))
|
|
|
34 (should (clang-include-fixer--insert-line from to))
|
|
|
35 (should (equal (buffer-string) "aa\nab\n\nac\nad\n")))))
|
|
|
36 (should (equal (buffer-string) "aa\nab\n\nac\nad\n"))))
|
|
|
37
|
|
|
38 (ert-deftest clang-include-fixer--symbol-at-point ()
|
|
|
39 "Unit test for `clang-include-fixer--symbol-at-point'."
|
|
|
40 (with-temp-buffer
|
|
|
41 (insert "a+bbb::cc")
|
|
|
42 (c++-mode)
|
|
|
43 (goto-char (point-min))
|
|
|
44 (should (equal (clang-include-fixer--symbol-at-point) "a"))
|
|
|
45 (forward-char)
|
|
|
46 ;; Emacs treats the character immediately following a symbol as part of the
|
|
|
47 ;; symbol.
|
|
|
48 (should (equal (clang-include-fixer--symbol-at-point) "a"))
|
|
|
49 (forward-char)
|
|
|
50 (should (equal (clang-include-fixer--symbol-at-point) "bbb::cc"))
|
|
|
51 (goto-char (point-max))
|
|
|
52 (should (equal (clang-include-fixer--symbol-at-point) "bbb::cc"))))
|
|
|
53
|
|
|
54 (ert-deftest clang-include-fixer--highlight ()
|
|
|
55 (with-temp-buffer
|
|
|
56 (insert "util::Status foo;\n")
|
|
|
57 (setq buffer-file-coding-system 'utf-8-unix)
|
|
|
58 (should (equal nil (clang-include-fixer--highlight
|
|
|
59 '((Range . ((Offset . 0) (Length . 0)))))))
|
|
|
60 (let ((overlay (clang-include-fixer--highlight
|
|
|
61 '((Range . ((Offset . 1) (Length . 12)))))))
|
|
|
62 (should (equal 2 (overlay-start overlay)))
|
|
|
63 (should (equal 14 (overlay-end overlay))))))
|
|
|
64
|
|
|
65 ;;; clang-include-fixer-test.el ends here
|
