Add tests for cider--enriched-cmd-p

Author: vroide

test/cider-tests.el

@@ -106,6 +106,36 @@
               :and-return-value '())
       (expect (cider-project-type) :to-equal cider-jack-in-default))))
 
+;; `cider--enriched-cmd-p', test different path + script-name combinations
+(let* ((paths `("/simple/path/"
+                ,(shell-quote-argument "/tmp/path/ with spaces/")
+                ,(shell-quote-argument "/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))
+       (names (seq-concatenate 'list simple-names tmp-names ))
+       (tests
+        (lambda (script)
+          (describe (format "cider--enriched-cmd-p with %s" script)
+            (it "Returns the script path when cmd contains an enrich-classpath script."
+              (expect (cider--enriched-cmd-p (concat "bash " script " /usr/bin/lein"))
+                      :to-equal script)
+              (expect (cider--enriched-cmd-p (concat "TEST=1 bash " script " /usr/bin/env lein"))
+                      :to-equal script))
+            ;; FIXME pretty useless to do this multiple times?
+            (it "Returns nil when the cmd does not contain an enrich-classpath script."
+              (expect (cider--enriched-cmd-p "/usr/bin/lein")
+                      :to-equal nil)
+              (expect (cider--enriched-cmd-p "bash /usr/bin/lein")
+                      :to-equal nil))
+            (it "Handles a fully constructed jack-in-cmd."
+              ;; TODO generate this
+              (let ((cmd (concat "bash " script  " /usr/local/bin/lein update-in :dependencies conj \[nrepl/nrepl\ \"1.0.0\"\] -- update-in :plugins conj \[cider/cider-nrepl\ \"0.43.0\"\] -- update-in :plugins conj \[mx.cider/lein-enrich-classpath\ \"1.18.2\"\] -- update-in :middleware conj cider.enrich-classpath.plugin-v2/middleware -- repl :headless :host localhost")))
+                (expect (cider--enriched-cmd-p cmd)
+                        :to-equal script)))))))
+  (cl-loop for path in paths do
+           (cl-loop for name in names do
+                    (funcall tests (concat path name)))))
+
 ;;; cider-jack-in tests
 (describe "cider--gradle-dependency-notation"
   (it "returns a GAV when given a two-element list"