feat: Apply timeout to antq.ver.java/get-versions

cf. #158

src/antq/ver/java.clj

@@ -1,5 +1,7 @@
 (ns antq.ver.java
   (:require
+   [antq.constant :as const]
+   [antq.util.async :as u.async]
    [antq.util.maven :as u.mvn]
    [antq.ver :as ver]
    [clojure.set :as set]
@@ -13,7 +15,7 @@
    (org.eclipse.aether.resolution
     VersionRangeRequest)))
 
-(defn get-versions
+(defn- get-versions
   [name opts]
   (let [{:keys [^RepositorySystem system
                 ^DefaultRepositorySystemSession  session
@@ -25,11 +27,16 @@
     (->> (.resolveVersionRange system session req)
          (.getVersions))))
 
+(def ^:private get-versions-with-timeout
+  (u.async/fn-with-timeout
+   get-versions
+   const/maven-timeout-msec))
+
 (defn get-sorted-versions-by-name*
   [name
    {:as dep-opts :keys [snapshots?]}
    options]
-  (let [maven-vers (->> (get-versions name dep-opts)
+  (let [maven-vers (->> (get-versions-with-timeout name dep-opts)
                         (map str))
         versions (if (:ignore-locals options)
                    (seq (set/difference (set maven-vers)
@@ -41,7 +48,6 @@
     (cond->> sorted-versions
       (not snapshots?) (remove ver/snapshot?))))
 
-
 (def get-sorted-versions-by-name
   (memoize get-sorted-versions-by-name*))
 

test/antq/ver/java_test.clj

@@ -13,8 +13,8 @@
           [:deps 'org.clojure/clojure :mvn/version]))
 
 (t/deftest get-versions-test
-  (let [vers (sut/get-versions 'org.clojure/clojure
-                               {:repositories u.mvn/default-repos})]
+  (let [vers (#'sut/get-versions 'org.clojure/clojure
+                                 {:repositories u.mvn/default-repos})]
     (t/is (seq vers))
     (t/is (contains? (set (map str vers)) current-clojure-version))))
 
@@ -32,7 +32,7 @@
                            {}))
 
 (t/deftest get-sorted-versions-test
-  (with-redefs [sut/get-versions dummy-versions]
+  (with-redefs [sut/get-versions-with-timeout dummy-versions]
     (t/is (= ["2" "1"]
              (get-sorted-versions {:version "1.0.0"})))
     (t/is (= ["2" "1.6-SNAPSHOT" "1"]