|
48 | 48 | (setq-local cider-jack-in-dependencies-exclusions '()))
|
49 | 49 |
|
50 | 50 | (it "can inject dependencies in a lein project"
|
51 |
| - (expect (cider-inject-jack-in-dependencies "" "repl :headless" "lein") |
| 51 | + (expect (cider-inject-jack-in-dependencies "" "repl :headless" 'lein) |
52 | 52 | :to-equal "update-in :dependencies conj \\[org.clojure/tools.nrepl\\ \\\"0.2.12\\\"\\] -- update-in :plugins conj \\[cider/cider-nrepl\\ \\\"0.10.0-SNAPSHOT\\\"\\] -- repl :headless"))
|
53 | 53 |
|
54 | 54 | (it "can inject dependencies in a lein project with an exclusion"
|
55 | 55 | (setq-local cider-jack-in-dependencies-exclusions '(("org.clojure/tools.nrepl" ("org.clojure/clojure"))))
|
56 |
| - (expect (cider-inject-jack-in-dependencies "" "repl :headless" "lein") |
| 56 | + (expect (cider-inject-jack-in-dependencies "" "repl :headless" 'lein) |
57 | 57 | :to-equal "update-in :dependencies conj \\[org.clojure/tools.nrepl\\ \\\"0.2.12\\\"\\ \\:exclusions\\ \\[org.clojure/clojure\\]\\] -- update-in :plugins conj \\[cider/cider-nrepl\\ \\\"0.10.0-SNAPSHOT\\\"\\] -- repl :headless"))
|
58 | 58 |
|
59 | 59 | (it "can inject dependencies in a lein project with multiple exclusions"
|
60 | 60 | (setq-local cider-jack-in-dependencies-exclusions '(("org.clojure/tools.nrepl" ("org.clojure/clojure" "foo.bar/baz"))))
|
61 |
| - (expect (cider-inject-jack-in-dependencies "" "repl :headless" "lein") |
| 61 | + (expect (cider-inject-jack-in-dependencies "" "repl :headless" 'lein) |
62 | 62 | :to-equal "update-in :dependencies conj \\[org.clojure/tools.nrepl\\ \\\"0.2.12\\\"\\ \\:exclusions\\ \\[org.clojure/clojure\\ foo.bar/baz\\]\\] -- update-in :plugins conj \\[cider/cider-nrepl\\ \\\"0.10.0-SNAPSHOT\\\"\\] -- repl :headless"))
|
63 | 63 |
|
64 | 64 | (it "can inject dependencies in a boot project"
|
|
75 | 75 | (setq-local cider-jack-in-nrepl-middlewares '("refactor-nrepl.middleware/wrap-refactor" "cider.nrepl/cider-middleware"))
|
76 | 76 | (setq-local cider-jack-in-dependencies-exclusions '()))
|
77 | 77 | (it "can inject dependencies in a lein project"
|
78 |
| - (expect (cider-inject-jack-in-dependencies "" "repl :headless" "lein") |
| 78 | + (expect (cider-inject-jack-in-dependencies "" "repl :headless" 'lein) |
79 | 79 | :to-equal "update-in :dependencies conj \\[org.clojure/tools.nrepl\\ \\\"0.2.12\\\"\\] -- update-in :plugins conj \\[refactor-nrepl\\ \\\"2.0.0\\\"\\] -- update-in :plugins conj \\[cider/cider-nrepl\\ \\\"0.11.0\\\"\\] -- repl :headless"))
|
80 | 80 |
|
81 | 81 | (it "can inject dependencies in a boot project"
|
|
89 | 89 | (setq-local cider-jack-in-lein-plugins '(("cider/cider-nrepl" "0.11.0")))
|
90 | 90 | (setq-local cider-jack-in-dependencies-exclusions '()))
|
91 | 91 | (it "can concat in a lein project"
|
92 |
| - (expect (cider-inject-jack-in-dependencies "-o -U" "repl :headless" "lein") |
| 92 | + (expect (cider-inject-jack-in-dependencies "-o -U" "repl :headless" 'lein) |
93 | 93 | :to-equal "-o -U update-in :dependencies conj \\[org.clojure/tools.nrepl\\ \\\"0.2.12\\\"\\] -- update-in :plugins conj \\[cider/cider-nrepl\\ \\\"0.11.0\\\"\\] -- repl :headless"))
|
94 | 94 | (it "can concat in a boot project"
|
95 | 95 | (expect (cider-inject-jack-in-dependencies "-C -o" "repl -s wait" "boot")
|
|
147 | 147 | :and-return-value '(("refactor-nrepl" "2.0.0") ("cider/cider-nrepl" "0.11.0")))
|
148 | 148 | (setq-local cider-jack-in-dependencies-exclusions '()))
|
149 | 149 | (it "uses them in a lein project"
|
150 |
| - (expect (cider-inject-jack-in-dependencies "" "repl :headless" "lein") |
| 150 | + (expect (cider-inject-jack-in-dependencies "" "repl :headless" 'lein) |
151 | 151 | :to-equal "update-in :dependencies conj \\[org.clojure/tools.nrepl\\ \\\"0.2.12\\\"\\] -- update-in :plugins conj \\[refactor-nrepl\\ \\\"2.0.0\\\"\\] -- update-in :plugins conj \\[cider/cider-nrepl\\ \\\"0.11.0\\\"\\] -- repl :headless"))
|
152 | 152 | (it "uses them in a boot project"
|
153 | 153 | (expect (cider-inject-jack-in-dependencies "" "repl -s wait" "boot")
|
|
178 | 178 | (describe "when there is a single project"
|
179 | 179 | (it "returns that type"
|
180 | 180 | (spy-on 'cider--identify-buildtools-present
|
181 |
| - :and-return-value '("lein")) |
182 |
| - (expect (cider-project-type) :to-equal "lein"))) |
| 181 | + :and-return-value '(lein)) |
| 182 | + (expect (cider-project-type) :to-equal 'lein))) |
183 | 183 |
|
184 | 184 | (describe "when there are multiple possible project types"
|
185 | 185 | (before-all
|
|
0 commit comments