blob: fe2378be4b92da472f767900a58219b76c016da5 (
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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
;; -*-no-byte-compile: t; -*-
(load (concat (file-name-directory (or load-file-name
buffer-file-name))
"test-config"))
(ert-deftest irony/buffer-size-in-bytes ()
(with-temp-buffer
;; this smiley takes 3 bytes apparently
(insert "☺")
(should (equal 3 (irony--buffer-size-in-bytes)))
(erase-buffer)
(insert "☺\n")
(should (equal 4 (irony--buffer-size-in-bytes)))
(erase-buffer)
(insert "\t")
(should (equal 1 (irony--buffer-size-in-bytes)))))
(ert-deftest irony/find-server-executable/does-not-exists ()
(let ((irony-server-install-prefix "/does/not/exists")
(exec-path nil))
(should-error (irony--find-server-executable)
:type 'irony-server-error)))
(ert-deftest irony/split-command-line/just-spaces ()
(let ((cmd-line "clang -Wall -Wextra"))
(should (equal
'("clang" "-Wall" "-Wextra")
(irony--split-command-line cmd-line)))))
(ert-deftest irony/split-command-line/start-with-space ()
(let ((cmd-line " clang -Wall -Wextra"))
(should (equal
'("clang" "-Wall" "-Wextra")
(irony--split-command-line cmd-line)))))
(ert-deftest irony/split-command-line/end-with-space ()
(let ((cmd-line "clang -Wall -Wextra "))
(should (equal
'("clang" "-Wall" "-Wextra")
(irony--split-command-line cmd-line)))))
(ert-deftest irony/split-command-line/space-everywhere ()
(let ((cmd-line " \t clang \t -Wall \t -Wextra\t"))
(should (equal
'("clang" "-Wall" "-Wextra")
(irony--split-command-line cmd-line)))))
(ert-deftest irony/split-command-line/with-quotes ()
(let ((cmd-line "clang -Wall -Wextra \"-I/tmp/dir with spaces\""))
(should (equal
'("clang" "-Wall" "-Wextra" "-I/tmp/dir with spaces")
(irony--split-command-line cmd-line)))))
(ert-deftest irony/split-command-line/with-quotes ()
"Test if files are removed from the arguments list.
https://github.com/Sarcasm/irony-mode/issues/101"
(let ((cmd-line "g++ -DFOO=\\\"\\\""))
(should (equal
'("g++" "-DFOO=\"\"")
(irony--split-command-line cmd-line)))))
(ert-deftest irony/split-command-line/start-with-quotes ()
(let ((cmd-line "\"cl ang\" -Wall -Wextra \"-I/tmp/dir with spaces\""))
(should (equal
'("cl ang" "-Wall" "-Wextra" "-I/tmp/dir with spaces")
(irony--split-command-line cmd-line)))))
(ert-deftest irony/split-command-line/quotes-in-word ()
(let ((cmd-line "clang -Wall -Wextra -I\"/tmp/dir with spaces\""))
(should (equal
'("clang" "-Wall" "-Wextra" "-I/tmp/dir with spaces")
(irony--split-command-line cmd-line)))))
(ert-deftest irony/split-command-line/ill-end-quote ()
(let ((cmd-line "clang -Wall -Wextra\""))
(should-error (irony--split-command-line cmd-line)
:type 'irony-parse-error)))
(ert-deftest irony/split-command-line/backslash-1 ()
(let ((cmd-line "clang\\ -Wall"))
(should (equal
'("clang -Wall")
(irony--split-command-line cmd-line)))))
(ert-deftest irony/split-command-line/backslash-2 ()
(let ((cmd-line "\\\\\\ clang\\ -Wall\\"))
(should (equal
'("\\ clang -Wall\\")
(irony--split-command-line cmd-line)))))
(ert-deftest irony/extract-working-directory-option/not-specified ()
(let ((compile-flags '("-Wall")))
(should
(not (irony--extract-working-directory-option compile-flags)))))
(ert-deftest irony/extract-working-directory-option/specified-1 ()
(let ((compile-flags '("-working-directory" "/tmp/lol")))
(should (equal "/tmp/lol"
(irony--extract-working-directory-option compile-flags)))))
(ert-deftest irony/extract-working-directory-option/specified-2 ()
(let ((compile-flags '("-Wall" "-working-directory=/tmp/lol" "-Wshadow")))
(should (equal "/tmp/lol"
(irony--extract-working-directory-option compile-flags)))))
;; TODO: restore functionality
;; (ert-deftest irony/include-directories-1 ()
;; (let ((irony-compile-flags '("-Iinclude" "-I/tmp/foo"))
;; (irony-compile-flags-work-dir "/tmp/blah/"))
;; (should (equal
;; '("/tmp/blah/include" "/tmp/foo")
;; (irony-user-search-paths)))))
;; (ert-deftest irony/include-directories-2 ()
;; (let ((irony-compile-flags '("-Wextra" "-Iinclude" "-I" "foo" "-Wall"))
;; (irony-compile-flags-work-dir "/tmp/blah/"))
;; (should (equal
;; '("/tmp/blah/include"
;; "/tmp/blah/foo")
;; (irony-user-search-paths)))))
|
