[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/cider 72f04cbf63 3/3: Adapt some tests
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/cider 72f04cbf63 3/3: Adapt some tests |
Date: |
Sat, 5 Mar 2022 03:57:51 -0500 (EST) |
branch: elpa/cider
commit 72f04cbf63401eb9c7ac4720b01bca00f396aea1
Author: vemv <vemv@users.noreply.github.com>
Commit: vemv <vemv@users.noreply.github.com>
Adapt some tests
---
test/cider-tests.el | 18 +++++++++++-------
1 file changed, 11 insertions(+), 7 deletions(-)
diff --git a/test/cider-tests.el b/test/cider-tests.el
index 8c6a4cec45..bcd000e6c0 100644
--- a/test/cider-tests.el
+++ b/test/cider-tests.el
@@ -210,6 +210,7 @@
(before-each
;; FIXME: Needed because its set in an earlier test
(setq-local cider-jack-in-lein-plugins nil)
+ (setq-local cider-jack-in-dependencies nil)
(setq-local cider-jack-in-nrepl-middlewares
'("cider.nrepl/cider-middleware"))
(setq-local cider-jack-in-dependencies-exclusions '()))
(it "can concat in a lein project"
@@ -397,6 +398,7 @@
"YwBsAG8AagB1AHIAZQAgACIAIgBjAG0AZAAtAHAAYQByAGEAbQBzACIAIgA="))))
(describe "when 'clojure-cli project type"
(it "uses main opts in an alias to prevent other mains from winning"
+ (setq-local cider-jack-in-dependencies nil)
(setq-local cider-jack-in-nrepl-middlewares
'("cider.nrepl/cider-middleware"))
(let ((expected (string-join '("clojure -Sdeps '{:deps {nrepl/nrepl
{:mvn/version \"0.9.0\"} "
"cider/cider-nrepl {:mvn/version
\"0.28.3\"}} "
@@ -411,12 +413,14 @@
(spy-on 'cider-jack-in-resolve-command :and-return-value "clojure")
(expect (plist-get (cider--update-jack-in-cmd nil) :jack-in-cmd)
:to-equal expected)))
+
(it "allows specifying custom aliases with `cider-clojure-cli-aliases`"
(let ((expected (string-join '("clojure -Sdeps '{:deps {nrepl/nrepl
{:mvn/version \"0.9.0\"} "
"cider/cider-nrepl {:mvn/version
\"0.28.3\"}} "
":aliases {:cider/nrepl {:main-opts
[\"-m\" \"nrepl.cmdline\" \"--middleware\""
" \"[cider.nrepl/cider-middleware]\"]}}}'
-M:dev:test:cider/nrepl")
"")))
+ (setq-local cider-jack-in-dependencies nil)
(setq-local cider-clojure-cli-aliases "-A:dev:test")
(setq-local cider-allow-jack-in-without-project t)
(setq-local cider-clojure-cli-command "clojure")
@@ -426,17 +430,17 @@
(expect (plist-get (cider--update-jack-in-cmd nil) :jack-in-cmd)
:to-equal expected)))
(it "should remove duplicates, yielding the same result"
- (let ((expected (string-join '("-Sdeps '{:deps {nrepl/nrepl
{:mvn/version \"0.9.0\"} "
- "cider/cider-nrepl {:mvn/version
\"0.28.3\"}} "
+ (let ((expected (string-join '("-Sdeps '{:deps {cider/cider-nrepl
{:mvn/version \"0.28.3\"} "
+ "nrepl/nrepl {:mvn/version \"0.9.0\"}} "
":aliases {:cider/nrepl {:main-opts
[\"-m\" \"nrepl.cmdline\" \"--middleware\""
- "
\"[cider.nrepl/cider-middleware]\"]}}}' -M:cider/nrepl")
+ "
\"[cider.nrepl/cider-middleware]\"]}}}' -M:dev:test:cider/nrepl")
"")))
(expect (cider-clojure-cli-jack-in-dependencies nil nil
'(("nrepl/nrepl" "0.9.0")
("nrepl/nrepl" "0.9.0")))
:to-equal expected)))
(it "handles aliases correctly"
- (let ((expected (string-join '("-Sdeps '{:deps {nrepl/nrepl
{:mvn/version \"0.9.0\"} "
- "cider/cider-nrepl {:mvn/version
\"0.28.3\"}} "
+ (let ((expected (string-join '("-Sdeps '{:deps {cider/cider-nrepl
{:mvn/version \"0.28.3\"} "
+ "nrepl/nrepl {:mvn/version \"0.9.0\"}} "
":aliases {:cider/nrepl {:main-opts
[\"-m\" \"nrepl.cmdline\" \"--middleware\""
" \"[cider.nrepl/cider-middleware]\"]}}}'
-M:test:cider/nrepl")
""))
@@ -458,8 +462,8 @@
(expect (cider-clojure-cli-jack-in-dependencies nil nil deps)
:to-equal expected)))))
(it "allows for global options"
- (let ((expected (string-join '("-J-Djdk.attach.allowAttachSelf -Sdeps
'{:deps {nrepl/nrepl {:mvn/version \"0.9.0\"} "
- "cider/cider-nrepl {:mvn/version
\"0.28.3\"}} "
+ (let ((expected (string-join '("-J-Djdk.attach.allowAttachSelf -Sdeps
'{:deps {cider/cider-nrepl {:mvn/version \"0.28.3\"} "
+ "nrepl/nrepl {:mvn/version \"0.9.0\"}} "
":aliases {:cider/nrepl {:main-opts
[\"-m\" \"nrepl.cmdline\" \"--middleware\""
" \"[cider.nrepl/cider-middleware]\"]}}}'
-M:test:cider/nrepl")
""))