Skip to content

Commit 6709552

Browse files
cichlibbatsov
cichli
authored and
bbatsov
committed
Code style
1 parent fbffe95 commit 6709552

File tree

1 file changed

+84
-48
lines changed

1 file changed

+84
-48
lines changed

‎test/clj/cider/nrepl/middleware/test_test.clj‎

Lines changed: 84 additions & 48 deletions
Original file line numberDiff line numberDiff line change
@@ -31,77 +31,113 @@
3131

3232
(deftest only-smoke-test-run-test-deprecated
3333
(testing "only test marked as smoke is run when test-all is used"
34-
(let [{:keys [results] :as test-result} (session/message {:op "test-all"
35-
:include ["smoke"]
36-
:exclude ["integration"]})
34+
(let [{:keys [results] :as test-result}
35+
(session/message {:op "test-all"
36+
:include ["smoke"]
37+
:exclude ["integration"]})
3738
tests (keys (:cider.nrepl.middleware.test-filter-tests results))]
38-
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests) "ns that contains smoke is present")
39-
(is (= 1 (count tests)) "only one test was run")
40-
(is (= :a-puff-of-smoke-test (first tests)) "only the test marked 'smoke' was run")))
39+
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests)
40+
"ns that contains smoke is present")
41+
(is (= 1 (count tests))
42+
"only one test was run")
43+
(is (= :a-puff-of-smoke-test (first tests))
44+
"only the test marked 'smoke' was run")))
45+
4146
(testing "only test marked as smoke is run when test-ns is used"
42-
(let [{:keys [results] :as test-result} (session/message {:op "test"
43-
:ns "cider.nrepl.middleware.test-filter-tests"
44-
:include ["smoke"]
45-
:exclude ["integration"]})
47+
(let [{:keys [results] :as test-result}
48+
(session/message {:op "test"
49+
:ns "cider.nrepl.middleware.test-filter-tests"
50+
:include ["smoke"]
51+
:exclude ["integration"]})
4652
tests (keys (:cider.nrepl.middleware.test-filter-tests results))]
47-
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests) "ns that contains smoke is present")
48-
(is (= 1 (count tests)) "only one test was run")
49-
(is (= :a-puff-of-smoke-test (first tests)) "only the test marked 'smoke' was run")))
53+
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests)
54+
"ns that contains smoke is present")
55+
(is (= 1 (count tests))
56+
"only one test was run")
57+
(is (= :a-puff-of-smoke-test (first tests))
58+
"only the test marked 'smoke' was run")))
59+
5060
(testing "only test not marked as integration is run when test-ns is used"
51-
(let [{:keys [results] :as test-result} (session/message {:op "test"
52-
:ns "cider.nrepl.middleware.test-filter-tests"
53-
:exclude ["integration"]})
61+
(let [{:keys [results] :as test-result}
62+
(session/message {:op "test"
63+
:ns "cider.nrepl.middleware.test-filter-tests"
64+
:exclude ["integration"]})
5465
tests (keys (:cider.nrepl.middleware.test-filter-tests results))]
55-
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests) "ns that contains smoke is present")
56-
(is (= 3 (count tests)) "only one test was run")
57-
(is (= #{:a-puff-of-smoke-test :yet-an-other-test :test-with-map-as-message} (set tests)) "only the test marked 'smoke' was run")))
66+
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests)
67+
"ns that contains smoke is present")
68+
(is (= 3 (count tests))
69+
"only one test was run")
70+
(is (= #{:a-puff-of-smoke-test :yet-an-other-test :test-with-map-as-message} (set tests))
71+
"only the test marked 'smoke' was run")))
72+
5873
(testing "marked test is still run if filter is not used"
59-
(let [{:keys [results] :as test-result} (session/message {:op "test"
60-
:ns "cider.nrepl.middleware.test-filter-tests"})
74+
(let [{:keys [results] :as test-result}
75+
(session/message {:op "test"
76+
:ns "cider.nrepl.middleware.test-filter-tests"})
6177
tests (keys (:cider.nrepl.middleware.test-filter-tests results))]
6278
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests) "ns that contains smoke is present")
6379
(is (< 1 (count tests)) "more tests were run")
6480
(is ((set tests) :a-puff-of-smoke-test) "smoke test is still present without a filter"))))
6581

6682
(deftest only-smoke-test-run-test
6783
(testing "only test marked as smoke is run when test-var-query is used"
68-
(let [{:keys [results] :as test-result} (session/message {:op "test-var-query"
69-
:var-query {:include-meta-key ["smoke"]
70-
:exclude-meta-key ["integration"]}})
84+
(let [{:keys [results] :as test-result}
85+
(session/message {:op "test-var-query"
86+
:var-query {:include-meta-key ["smoke"]
87+
:exclude-meta-key ["integration"]}})
7188
tests (keys (:cider.nrepl.middleware.test-filter-tests results))]
72-
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests) "ns that contains smoke is present")
73-
(is (= 1 (count tests)) "only one test was run")
74-
(is (= :a-puff-of-smoke-test (first tests)) "only the test marked 'smoke' was run")))
89+
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests)
90+
"ns that contains smoke is present")
91+
(is (= 1 (count tests))
92+
"only one test was run")
93+
(is (= :a-puff-of-smoke-test (first tests))
94+
"only the test marked 'smoke' was run")))
95+
7596
(testing "only test marked as smoke is run when test-ns is used"
76-
(let [{:keys [results] :as test-result} (session/message {:op "test-var-query"
77-
:var-query {:ns-query {:exactly ["cider.nrepl.middleware.test-filter-tests"]}
78-
:include-meta-key ["smoke"]
79-
:exclude-meta-key ["integration"]}})
97+
(let [{:keys [results] :as test-result}
98+
(session/message {:op "test-var-query"
99+
:var-query {:ns-query {:exactly ["cider.nrepl.middleware.test-filter-tests"]}
100+
:include-meta-key ["smoke"]
101+
:exclude-meta-key ["integration"]}})
80102
tests (keys (:cider.nrepl.middleware.test-filter-tests results))]
81-
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests) "ns that contains smoke is present")
82-
(is (= 1 (count tests)) "only one test was run")
83-
(is (= :a-puff-of-smoke-test (first tests)) "only the test marked 'smoke' was run")))
103+
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests)
104+
"ns that contains smoke is present")
105+
(is (= 1 (count tests))
106+
"only one test was run")
107+
(is (= :a-puff-of-smoke-test (first tests))
108+
"only the test marked 'smoke' was run")))
109+
84110
(testing "only test not marked as integration is run when test-ns is used"
85-
(let [{:keys [results] :as test-result} (session/message {:op "test-var-query"
86-
:var-query {:ns-query {:exactly ["cider.nrepl.middleware.test-filter-tests"]}
87-
:exclude-meta-key ["integration"]}})
111+
(let [{:keys [results] :as test-result}
112+
(session/message {:op "test-var-query"
113+
:var-query {:ns-query {:exactly ["cider.nrepl.middleware.test-filter-tests"]}
114+
:exclude-meta-key ["integration"]}})
88115
tests (keys (:cider.nrepl.middleware.test-filter-tests results))]
89-
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests) "ns that contains smoke is present")
90-
(is (= 3 (count tests)) "only one test was run")
91-
(is (= #{:a-puff-of-smoke-test :yet-an-other-test :test-with-map-as-message} (set tests)) "only the test marked 'smoke' was run")))
116+
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests)
117+
"ns that contains smoke is present")
118+
(is (= 3 (count tests))
119+
"only one test was run")
120+
(is (= #{:a-puff-of-smoke-test :yet-an-other-test :test-with-map-as-message} (set tests))
121+
"only the test marked 'smoke' was run")))
122+
92123
(testing "marked test is still run if filter is not used"
93-
(let [{:keys [results] :as test-result} (session/message {:op "test-var-query"
94-
:var-query {:ns-query {:exactly ["cider.nrepl.middleware.test-filter-tests"]}}})
124+
(let [{:keys [results] :as test-result}
125+
(session/message {:op "test-var-query"
126+
:var-query {:ns-query {:exactly ["cider.nrepl.middleware.test-filter-tests"]}}})
95127
tests (keys (:cider.nrepl.middleware.test-filter-tests results))]
96-
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests) "ns that contains smoke is present")
97-
(is (< 1 (count tests)) "more tests were run")
98-
(is ((set tests) :a-puff-of-smoke-test) "smoke test is still present without a filter"))))
128+
(is ((set (keys results)) :cider.nrepl.middleware.test-filter-tests)
129+
"ns that contains smoke is present")
130+
(is (< 1 (count tests))
131+
"more tests were run")
132+
(is ((set tests) :a-puff-of-smoke-test)
133+
"smoke test is still present without a filter"))))
99134

100135
(deftest run-test-with-map-as-documentation-message
101136
(testing "documentation message map is returned as string"
102-
(let [{:keys [results] :as test-result} (session/message {:op "test"
103-
:ns "cider.nrepl.middleware.test-filter-tests"
104-
:tests ["test-with-map-as-message"]})]
137+
(let [{:keys [results] :as test-result}
138+
(session/message {:op "test"
139+
:ns "cider.nrepl.middleware.test-filter-tests"
140+
:tests ["test-with-map-as-message"]})]
105141
(is (= (str {:key "val"}) (-> results
106142
:cider.nrepl.middleware.test-filter-tests
107143
:test-with-map-as-message

0 commit comments

Comments
 (0)