-
Notifications
You must be signed in to change notification settings - Fork 43
Expand file tree
/
Copy pathcli.clj
More file actions
136 lines (120 loc) · 4.49 KB
/
Copy pathcli.clj
File metadata and controls
136 lines (120 loc) · 4.49 KB
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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
(ns effectivejava.test.cli
(:require [clojure.tools.cli :refer [parse-opts]])
(:use [conjure.core])
(:use [effectivejava.cli])
(:use [effectivejava.core])
(:use [effectivejava.model.protocols])
(:use [effectivejava.model.javaparser])
(:use [effectivejava.itemsOnLifecycle])
(:use [effectivejava.javaparser.navigation])
(:use [effectivejava.operations])
(:use [clojure.test]))
(def javaparserCus (cus "test-resources/sample-codebases/javaparser/"))
(deftest issue43
"mcp query fails when no threshold is specified"
(let [op (:mcp operations)]
(with-redefs [println (fn [_] 1)]
(printOperation op javaparserCus 0))))
(deftest cli-opts-help
(let [args ["--help"]
res (parse-opts args cliOpts)]
(is (= [] (:arguments res)))
(is (= false (:linter (:options res))))
(is (= false (:interactive (:options res))))
(is (= true (:help (:options res))))
(is (= nil (:errors res)))))
(deftest cli-opts-interactive-short
(let [args ["-i"]
res (parse-opts args cliOpts)]
(is (= [] (:arguments res)))
(is (= false (:linter (:options res))))
(is (= true (:interactive (:options res))))
(is (= false (:help (:options res))))
(is (= nil (:errors res)))))
(deftest cli-opts-interactive-long
(let [args ["--interactive"]
res (parse-opts args cliOpts)]
(is (= [] (:arguments res)))
(is (= false (:linter (:options res))))
(is (= true (:interactive (:options res))))
(is (= false (:help (:options res))))
(is (= nil (:errors res)))))
(deftest cli-opts-linter-short
(let [args ["-l"]
res (parse-opts args cliOpts)]
(is (= [] (:arguments res)))
(is (= true (:linter (:options res))))
(is (= false (:interactive (:options res))))
(is (= false (:help (:options res))))
(is (= nil (:errors res)))))
(deftest cli-opts-linter-long
(let [args ["--linter"]
res (parse-opts args cliOpts)]
(is (= [] (:arguments res)))
(is (= true (:linter (:options res))))
(is (= false (:interactive (:options res))))
(is (= false (:help (:options res))))
(is (= nil (:errors res)))))
(deftest cli-opts-unknown
(let [args ["--foo"]
res (parse-opts args cliOpts)]
(is (:errors res))))
(deftest cli-opts-dir-short
(let [args ["-d" "FOO"]
res (parse-opts args cliOpts)]
(is (= [] (:arguments res)))
(is (= false (:linter (:options res))))
(is (= false (:interactive (:options res))))
(is (= false (:help (:options res))))
(is (= "FOO" (:dir (:options res))))
(is (= nil (:errors res)))))
(deftest cli-opts-dir-long
(let [args ["--dir" "FOO"]
res (parse-opts args cliOpts)]
(is (= [] (:arguments res)))
(is (= false (:linter (:options res))))
(is (= false (:interactive (:options res))))
(is (= false (:help (:options res))))
(is (= "FOO" (:dir (:options res))))
(is (= nil (:errors res)))))
(deftest cli-opts-threshold-not-a-number
(let [args ["-t" "2a"]
res (parse-opts args cliOpts)]
(is (= [] (:arguments res)))
(is (= false (:linter (:options res))))
(is (= false (:interactive (:options res))))
(is (= false (:help (:options res))))
(is (:errors res))))
(deftest cli-opts-threshold-negative
(let [args ["-t" "-2"]
res (parse-opts args cliOpts)]
(is (= [] (:arguments res)))
(is (= false (:linter (:options res))))
(is (= false (:interactive (:options res))))
(is (= false (:help (:options res))))
(is (:errors res))))
(deftest cli-opts-threshold-positive
(let [args ["-t" "2"]
res (parse-opts args cliOpts)]
(is (= [] (:arguments res)))
(is (= false (:linter (:options res))))
(is (= false (:interactive (:options res))))
(is (= false (:help (:options res))))
(is (= 2 (:threshold (:options res))))
(is (= nil (:errors res)))))
;(defn run [opts]
; (let [dirname (:dir opts)
; th (:threshold opts)
; operation ((keyword (:query opts)) operations)
; cus (filter not-nil? (cus dirname))]
; (println "Considering" (.size cus) "Java files")
; (printOperation operation cus th)))
(deftest run-invoke-the-right-stuff
(let [opts {:dir "mydir", :threshold 43, :query :mcp}]
(stubbing [cus '(:cu1 :cu2 :cu3)]
(mocking [println printOperation]
(run opts)
(verify-call-times-for println 1)
(verify-call-times-for printOperation 1)
(verify-first-call-args-for println "Considering" 3 "Java files")
(verify-first-call-args-for printOperation constructorsWithManyParametersOp '(:cu1 :cu2 :cu3) 43)))))