Skip to content

Commit e6fa601

Browse files
committed
Adapt some tests
1 parent 4082f6f commit e6fa601

File tree

1 file changed

+15
-9
lines changed

1 file changed

+15
-9
lines changed

test/cider-tests.el

+15-9
Original file line numberDiff line numberDiff line change
@@ -210,6 +210,7 @@
210210
(before-each
211211
;; FIXME: Needed because its set in an earlier test
212212
(setq-local cider-jack-in-lein-plugins nil)
213+
(setq-local cider-jack-in-dependencies nil)
213214
(setq-local cider-jack-in-nrepl-middlewares '("cider.nrepl/cider-middleware"))
214215
(setq-local cider-jack-in-dependencies-exclusions '()))
215216
(it "can concat in a lein project"
@@ -292,6 +293,8 @@
292293
(expect (cider-inject-jack-in-dependencies "" "repl :headless" 'lein)
293294
:to-equal (concat "update-in :dependencies conj "
294295
(shell-quote-argument "[nrepl/nrepl \"0.9.0\"]")
296+
" -- update-in :dependencies conj "
297+
(shell-quote-argument "[refactor-nrepl \"2.0.0\"]")
295298
" -- update-in :plugins conj "
296299
(shell-quote-argument "[refactor-nrepl \"2.0.0\"]")
297300
" -- update-in :plugins conj "
@@ -397,9 +400,10 @@
397400
"YwBsAG8AagB1AHIAZQAgACIAIgBjAG0AZAAtAHAAYQByAGEAbQBzACIAIgA="))))
398401
(describe "when 'clojure-cli project type"
399402
(it "uses main opts in an alias to prevent other mains from winning"
403+
(setq-local cider-jack-in-dependencies nil)
400404
(setq-local cider-jack-in-nrepl-middlewares '("cider.nrepl/cider-middleware"))
401405
(let ((expected (string-join '("clojure -Sdeps '{:deps {nrepl/nrepl {:mvn/version \"0.9.0\"} "
402-
"cider/cider-nrepl {:mvn/version \"0.28.3\"}} "
406+
"cider/cider-nrepl {:mvn/version \"0.28.3\"} "
403407
":aliases {:cider/nrepl {:main-opts [\"-m\" \"nrepl.cmdline\" \"--middleware\""
404408
" \"[cider.nrepl/cider-middleware]\"]}}}' -M:cider/nrepl")
405409
"")))
@@ -411,12 +415,14 @@
411415
(spy-on 'cider-jack-in-resolve-command :and-return-value "clojure")
412416
(expect (plist-get (cider--update-jack-in-cmd nil) :jack-in-cmd)
413417
:to-equal expected)))
418+
414419
(it "allows specifying custom aliases with `cider-clojure-cli-aliases`"
415420
(let ((expected (string-join '("clojure -Sdeps '{:deps {nrepl/nrepl {:mvn/version \"0.9.0\"} "
416-
"cider/cider-nrepl {:mvn/version \"0.28.3\"}} "
421+
"cider/cider-nrepl {:mvn/version \"0.28.3\"} "
417422
":aliases {:cider/nrepl {:main-opts [\"-m\" \"nrepl.cmdline\" \"--middleware\""
418423
" \"[cider.nrepl/cider-middleware]\"]}}}' -M:dev:test:cider/nrepl")
419424
"")))
425+
(setq-local cider-jack-in-dependencies nil)
420426
(setq-local cider-clojure-cli-aliases "-A:dev:test")
421427
(setq-local cider-allow-jack-in-without-project t)
422428
(setq-local cider-clojure-cli-command "clojure")
@@ -426,17 +432,17 @@
426432
(expect (plist-get (cider--update-jack-in-cmd nil) :jack-in-cmd)
427433
:to-equal expected)))
428434
(it "should remove duplicates, yielding the same result"
429-
(let ((expected (string-join '("-Sdeps '{:deps {nrepl/nrepl {:mvn/version \"0.9.0\"} "
430-
"cider/cider-nrepl {:mvn/version \"0.28.3\"}} "
435+
(let ((expected (string-join '("-Sdeps '{:deps {cider/cider-nrepl {:mvn/version \"0.28.3\"} "
436+
"nrepl/nrepl {:mvn/version \"0.9.0\"}} "
431437
":aliases {:cider/nrepl {:main-opts [\"-m\" \"nrepl.cmdline\" \"--middleware\""
432-
" \"[cider.nrepl/cider-middleware]\"]}}}' -M:cider/nrepl")
438+
" \"[cider.nrepl/cider-middleware]\"]}}}' -M:dev:test:cider/nrepl")
433439
"")))
434440
(expect (cider-clojure-cli-jack-in-dependencies nil nil '(("nrepl/nrepl" "0.9.0")
435441
("nrepl/nrepl" "0.9.0")))
436442
:to-equal expected)))
437443
(it "handles aliases correctly"
438-
(let ((expected (string-join '("-Sdeps '{:deps {nrepl/nrepl {:mvn/version \"0.9.0\"} "
439-
"cider/cider-nrepl {:mvn/version \"0.28.3\"}} "
444+
(let ((expected (string-join '("-Sdeps '{:deps {cider/cider-nrepl {:mvn/version \"0.28.3\"} "
445+
"nrepl/nrepl {:mvn/version \"0.9.0\"}} "
440446
":aliases {:cider/nrepl {:main-opts [\"-m\" \"nrepl.cmdline\" \"--middleware\""
441447
" \"[cider.nrepl/cider-middleware]\"]}}}' -M:test:cider/nrepl")
442448
""))
@@ -458,8 +464,8 @@
458464
(expect (cider-clojure-cli-jack-in-dependencies nil nil deps)
459465
:to-equal expected)))))
460466
(it "allows for global options"
461-
(let ((expected (string-join '("-J-Djdk.attach.allowAttachSelf -Sdeps '{:deps {nrepl/nrepl {:mvn/version \"0.9.0\"} "
462-
"cider/cider-nrepl {:mvn/version \"0.28.3\"}} "
467+
(let ((expected (string-join '("-J-Djdk.attach.allowAttachSelf -Sdeps '{:deps {cider/cider-nrepl {:mvn/version \"0.28.3\"} "
468+
"nrepl/nrepl {:mvn/version \"0.9.0\"}} "
463469
":aliases {:cider/nrepl {:main-opts [\"-m\" \"nrepl.cmdline\" \"--middleware\""
464470
" \"[cider.nrepl/cider-middleware]\"]}}}' -M:test:cider/nrepl")
465471
""))

0 commit comments

Comments
 (0)