Try to appease windows (shell-quoting)

clojure-emacs · Nov 16, 2023 · 8a4bd5d · 8a4bd5d
1 parent c663ee9
commit 8a4bd5d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/test/cider-tests.el b/test/cider-tests.el
@@ -115,17 +115,17 @@
               :to-equal nil)))
   (describe "for different path + script-name combinations"
     :var* ((paths `("/simple/path/"
-                    ,(shell-quote-argument "/tmp/path/ with spaces/")
-                    ,(shell-quote-argument "/ssh:!slightly@cra --zy!path #enrich me/")))
+                    ,"/tmp/path/ with spaces/"
+                    ,"/ssh:!slightly@cra --zy!path #enrich me/"))
            (simple-names (map-values cider--enrich-classpath-script-names))
            (tmp-names (mapcar (lambda (s) (cider--make-temp-name s)) simple-names))
            (all-names (seq-concatenate 'list simple-names tmp-names)))
     (cl-loop
      for path in paths do
      (cl-loop
       for name in all-names do
-      (describe (format "cider--enriched-cmd-p with script: %s" (concat path name))
-        :var ((script (concat path name)))
+      (describe (format "cider--enriched-cmd-p with script: %s" (shell-quote-argument (concat path name)))
+        :var ((script (shell-quote-argument (concat path name))))
         (it "is true in basic cases "
           (expect (cider--enriched-cmd-p (concat "bash " script " /usr/bin/lein"))
                   :to-be-truthy)