tags should fetch to ensure all tags are found

Author: puredanger

CHANGELOG.md

@@ -1,6 +1,8 @@
 Changelog
 ===========
 
+* next
+  * `tags` api should fetch to ensure all tags are returned
 * 2.2.152 on Apr 3, 2021
   * Fix issue with fetching new commits on branches
 * 2.1.144 on Mar 12, 2021

src/main/clojure/clojure/tools/gitlibs.clj

@@ -74,7 +74,7 @@
           (->> shas (sort (partial impl/commit-comparator git-dir)) first))))))
 
 (defn tags
-  "Returns coll of tags in git url"
+  "Fetches, then returns coll of tags in git url"
   [url]
   (impl/tags (impl/ensure-git-dir url)))
 

src/main/clojure/clojure/tools/gitlibs/impl.clj

@@ -141,7 +141,9 @@
           (throw (IOException. (str "Prefix not unique: " prefix))))))))
 
 (defn tags
+  "Fetch, then return all tags in the git dir. "
   [git-dir]
+  (git-fetch (jio/file git-dir))
   (let [{:keys [exit out err] :as ret} (run-git "--git-dir" git-dir "tag")]
     (when-not (zero? exit)
       (throw (ex-info (format "Unable to get tags %s%n%s" git-dir err) ret)))