blob: a810dae2a1b103d35df7b05c5cfd29b147fdf3e8 (
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
|
;; -*-no-byte-compile: t; -*-
(load
(concat (file-name-directory (or load-file-name buffer-file-name))
"test-config"))
(require 'irony-cdb-json)
(require 'cl-lib)
(defconst irony-cdb/compile-command
'((file . "../src/file.cc")
(directory . "/home/user/project/build")
(command . "/usr/bin/clang++ -DSOMEDEF=1 -c -o file.o /home/user/project/src/file.cc")))
(ert-deftest cdb/parse/simple/path-is-absolute ()
(should
(equal "/home/user/project/src/file.cc"
(nth 0 (irony-cdb-json--transform-compile-command
irony-cdb/compile-command)))))
(ert-deftest cdb/parse/simple/compile-options ()
(should
(equal '("-DSOMEDEF=1")
(nth 1 (irony-cdb-json--transform-compile-command
irony-cdb/compile-command)))))
(ert-deftest cdb/parse/simple/invocation-directory ()
(should
(equal "/home/user/project/build"
(nth 2 (irony-cdb-json--transform-compile-command
irony-cdb/compile-command)))))
(ert-deftest cdb/choose-closest-path/chooses-closest ()
(should
(equal "/tmp/a/cdb"
(irony-cdb--choose-closest-path "/tmp/a/1"
'("/tmp/a/cdb" "/tmp/cdb")))))
(ert-deftest cdb/choose-closest-path/chooses-closest2 ()
(should
(equal "/tmp/a/cdb"
(irony-cdb--choose-closest-path "/tmp/a/1"
'("/tmp/cdb" "/tmp/a/cdb")))))
(ert-deftest cdb/choose-closest-path/prefers-deeper ()
(should
(equal "/tmp/a/build/cdb"
(irony-cdb--choose-closest-path "/tmp/a/1"
'("/tmp/a/build/cdb" "/tmp/cdb")))))
(ert-deftest cdb/choose-closest-path/prefers-deeper2 ()
(should
(equal "/tmp/a/build/cdb"
(irony-cdb--choose-closest-path "/tmp/a/1"
'("/tmp/cdb" "/tmp/a/build/cdb")))))
(ert-deftest cdb/choose-closest-path/will-survive-garbage ()
(should
(equal nil
(irony-cdb--choose-closest-path "/tmp/a/1"
'ordures))))
; http://endlessparentheses.com/understanding-letf-and-how-it-replaces-flet.html
(ert-deftest cdb/locate-db/choose-among-candidates ()
(should
(equal "/foo/build/cdb"
(cl-letf (((symbol-function 'locate-dominating-file)
(lambda (file name)
(cond
((string= name "./cdb") "/") ; found /cdb
((string= name "build/cdb") "/foo/") ; found /foo/build/cdb
))))
(irony-cdb--locate-dominating-file-with-dirs "/foo/bar/qux.cpp"
"cdb"
'("." "build" "out/x86_64"))))))
(ert-deftest cdb/locate-dominating-file-with-dirs/children-first ()
(should
(equal "/tmp/foo/bar/out/x86_64/cdb"
(cl-letf (((symbol-function 'locate-dominating-file)
(lambda (file name)
(cond
((string= name "./cdb") "/tmp/foo/") ; found /tmp/foo/cdb
((string= name "out/x86_64/cdb") "/tmp/foo/bar/") ;found /tmp/foo/bar/out/x86_64/cdb
))))
(irony-cdb--locate-dominating-file-with-dirs "/tmp/foo/bar/qux.cpp"
"cdb"
'("." "out/x86_64" ))))))
|
