|
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