|
1 |
| -;; TODO: The plugin test is broken due to |
2 |
| -;; https://github.com/technomancy/leiningen/issues/2369 |
3 | 1 | (ns cider-nrepl.plugin-test
|
4 |
| - (:require #_[cider-nrepl.plugin :as plugin] |
| 2 | + (:require [cider-nrepl.plugin :as plugin] |
5 | 3 | [cider.nrepl :refer [cider-middleware]]
|
6 | 4 | [clojure.test :refer :all]
|
7 |
| - #_[leiningen.core.main :as lein])) |
| 5 | + [leiningen.core.main :as lein])) |
8 | 6 |
|
9 | 7 | (defn- contains-cider-nrepl-dep? [{:keys [dependencies]}]
|
10 | 8 | (boolean (->> dependencies
|
|
14 | 12 | (defn- contains-cider-nrepl-middleware? [{{:keys [nrepl-middleware]} :repl-options}]
|
15 | 13 | (= cider-middleware nrepl-middleware))
|
16 | 14 |
|
17 |
| -#_(deftest plugin-test |
18 |
| - ;; Suppress output of leiningen.core.main/warn |
19 |
| - (binding [lein/*info* false] |
20 |
| - (with-redefs [plugin/version (constantly "0.11.0")] |
21 |
| - (with-redefs [lein/leiningen-version (constantly "2.5.2")] |
22 |
| - (testing "Valid Lein version; valid Clojure version" |
23 |
| - (let [project (plugin/middleware '{:dependencies [[org.clojure/clojure "1.8.0"]]})] |
24 |
| - (is (contains-cider-nrepl-dep? project)) |
25 |
| - (is (contains-cider-nrepl-middleware? project)))) |
26 |
| - |
27 |
| - (testing "Valid Lein version; no Clojure version specified" |
28 |
| - (let [project (plugin/middleware '{})] |
29 |
| - (is (contains-cider-nrepl-dep? project)) |
30 |
| - (is (contains-cider-nrepl-middleware? project)))) |
31 |
| - |
32 |
| - (testing "Valid Lein version; invalid Clojure version" |
33 |
| - (let [project (plugin/middleware '{:dependencies [[org.clojure/clojure "1.6.0"]]})] |
34 |
| - (is (not (contains-cider-nrepl-dep? project))) |
35 |
| - (is (not (contains-cider-nrepl-middleware? project)))))) |
36 |
| - |
37 |
| - (with-redefs [lein/leiningen-version (constantly "2.5.1")] |
38 |
| - (testing "Invalid Lein version; valid Clojure version" |
39 |
| - (let [project (plugin/middleware '{:dependencies [[org.clojure/clojure "1.8.0"]]})] |
40 |
| - (is (not (contains-cider-nrepl-dep? project))) |
41 |
| - (is (not (contains-cider-nrepl-middleware? project))))) |
42 |
| - |
43 |
| - (testing "Invalid Lein version; no Clojure version specified" |
44 |
| - (let [project (plugin/middleware '{})] |
45 |
| - (is (not (contains-cider-nrepl-dep? project))) |
46 |
| - (is (not (contains-cider-nrepl-middleware? project))))) |
47 |
| - |
48 |
| - (testing "Invalid Lein version; invalid Clojure version" |
49 |
| - (let [project (plugin/middleware '{:dependencies [[org.clojure/clojure "1.6.0"]]})] |
50 |
| - (is (not (contains-cider-nrepl-dep? project))) |
51 |
| - (is (not (contains-cider-nrepl-middleware? project))))))))) |
| 15 | +(deftest plugin-test |
| 16 | + ;; Suppress output of leiningen.core.main/warn |
| 17 | + (binding [lein/*info* false] |
| 18 | + (with-redefs [lein/leiningen-version (constantly plugin/min-lein-version)] |
| 19 | + (testing "Valid Lein version; valid Clojure version" |
| 20 | + (let [project (plugin/middleware '{:dependencies [[org.clojure/clojure "1.8.0"]]})] |
| 21 | + (is (contains-cider-nrepl-dep? project)) |
| 22 | + (is (contains-cider-nrepl-middleware? project)))) |
| 23 | + |
| 24 | + (testing "Valid Lein version; no Clojure version specified" |
| 25 | + (let [project (plugin/middleware '{})] |
| 26 | + (is (contains-cider-nrepl-dep? project)) |
| 27 | + (is (contains-cider-nrepl-middleware? project)))) |
| 28 | + |
| 29 | + (testing "Valid Lein version; invalid Clojure version" |
| 30 | + (let [project (plugin/middleware '{:dependencies [[org.clojure/clojure "1.6.0"]]})] |
| 31 | + (is (not (contains-cider-nrepl-dep? project))) |
| 32 | + (is (not (contains-cider-nrepl-middleware? project)))))) |
| 33 | + |
| 34 | + (with-redefs [lein/leiningen-version (constantly "2.5.1")] |
| 35 | + (testing "Invalid Lein version; valid Clojure version" |
| 36 | + (let [project (plugin/middleware '{:dependencies [[org.clojure/clojure "1.8.0"]]})] |
| 37 | + (is (not (contains-cider-nrepl-dep? project))) |
| 38 | + (is (not (contains-cider-nrepl-middleware? project))))) |
| 39 | + |
| 40 | + (testing "Invalid Lein version; no Clojure version specified" |
| 41 | + (let [project (plugin/middleware '{})] |
| 42 | + (is (not (contains-cider-nrepl-dep? project))) |
| 43 | + (is (not (contains-cider-nrepl-middleware? project))))) |
| 44 | + |
| 45 | + (testing "Invalid Lein version; invalid Clojure version" |
| 46 | + (let [project (plugin/middleware '{:dependencies [[org.clojure/clojure "1.6.0"]]})] |
| 47 | + (is (not (contains-cider-nrepl-dep? project))) |
| 48 | + (is (not (contains-cider-nrepl-middleware? project)))))))) |
0 commit comments