• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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
66