emacs-elpa-diffs
[Top][All Lists]
Advanced

[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")
                                    ""))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]