find-versions now returns coords for each procurer

Author: JarrodCTaylor

src/main/clojure/clojure/tools/deps/cli/api.clj

@@ -392,7 +392,10 @@
   [{:keys [lib tool n] :or {n 8} :as args}]
   (let [{:keys [root-edn user-edn]} (deps/find-edn-maps)
         master-edn (deps/merge-edns [root-edn user-edn])
-        trunc-fn (if (= n :all) (fn [_n x] x) #(apply take-last %&))
+        trunc-fn (fn [n x]
+                   (if (= n :all)
+                     x
+                     (mapcat #(take-last n %) (vals (group-by keys x)))))
         coords (cond
                  tool
                  (if-let [{:keys [lib coord]} (tool/resolve-tool (name tool))]

src/test/clojure/clojure/tools/deps/cli/test_api.clj

@@ -1,5 +1,6 @@
 (ns clojure.tools.deps.cli.test-api
   (:require
+    [clojure.edn :as edn]
     [clojure.java.io :as jio]
     [clojure.string :as str]
     [clojure.test :refer [deftest is] :as test]
@@ -196,6 +197,16 @@
 
   (is (= "" (with-out-str (api/find-versions {:lib 'io.github.clojure/bogus-taco-slurpee})))))
 
+(deftest test-find-versions-returns-results-from-all-procurers
+  (let [expected [[:git/tag :git/sha] [:mvn/version]]
+        actual (->> (api/find-versions {:lib 'io.github.clojure/tools.build :n 4})
+                    with-out-str
+                    str/split-lines
+                    (map edn/read-string)
+                    (group-by keys)
+                    keys)]
+    (is (= expected actual))))
+
 (comment
   (test-find-maven-version)
   (test-find-git-version)