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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/cider fe397a561d: Fix shell quoting in Gradle tests (#3229


From: ELPA Syncer
Subject: [nongnu] elpa/cider fe397a561d: Fix shell quoting in Gradle tests (#3229)
Date: Sun, 31 Jul 2022 00:58:11 -0400 (EDT)

branch: elpa/cider
commit fe397a561d3889d1afb104a88303ea4bfba6d3e3
Author: Andrew Oberstar <andrew.oberstar@outlook.com>
Commit: GitHub <noreply@github.com>

    Fix shell quoting in Gradle tests (#3229)
    
    Needed for Windows.
---
 test/cider-tests.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/test/cider-tests.el b/test/cider-tests.el
index edb4739ba8..f223ed03bc 100644
--- a/test/cider-tests.el
+++ b/test/cider-tests.el
@@ -129,10 +129,12 @@
             :to-equal ""))
   (it "returns a single middleware param if one passed"
     (expect (cider--gradle-middleware-params '("my-ns/my-middleware"))
-            :to-equal  "--middleware\\=my-ns/my-middleware"))
+            :to-equal  (shell-quote-argument 
"--middleware=my-ns/my-middleware")))
   (it "returrns multiple middleware params, space-separated, if multiple 
passed"
     (expect (cider--gradle-middleware-params '("my-ns/my-middleware" 
"other-ns/other-middleware"))
-            :to-equal "--middleware\\=my-ns/my-middleware 
--middleware\\=other-ns/other-middleware")))
+            :to-equal (concat (shell-quote-argument 
"--middleware=my-ns/my-middleware")
+                              " "
+                              (shell-quote-argument 
"--middleware=other-ns/other-middleware")))))
 
 (describe "cider-inject-jack-in-dependencies"
   :var (cider-jack-in-dependencies cider-jack-in-nrepl-middlewares 
cider-jack-in-lein-plugins cider-jack-in-dependencies-exclusions)
@@ -574,7 +576,7 @@
     (spy-on 'locate-file :and-return-value "/project/command")
     (spy-on 'executable-find :and-return-value "/bin/command")
     (expect (cider--resolve-project-command "command")
-            :to-equal "/bin/command")))
+            :to-equal (shell-quote-argument "/bin/command"))))
 
 (provide 'cider-tests)
 



reply via email to

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