Add fn spec for docker/all-tags

Author: cap10morgan

src/docker_clojure/docker.clj

@@ -1,11 +1,13 @@
 (ns docker-clojure.docker
   (:require [clojure.java.shell :refer [sh with-sh-dir]]
+            [clojure.spec.alpha :as s]
             [clojure.string :as str]
             [docker-clojure.config :as cfg]
             [docker-clojure.core :as-alias core]
             [docker-clojure.dockerfile :as df]
+            [docker-clojure.log :refer [log]]
             [docker-clojure.util :refer [get-or-default]]
-            [docker-clojure.log :refer [log]]))
+            [docker-clojure.variant :as-alias variant]))
 
 (defn pull-image [image]
   (sh "docker" "pull" image))
@@ -98,9 +100,9 @@
 (defn all-tags
   "Returns all Docker tags for the given variant"
   [variant]
-  (let [short-tag (:docker-tag variant)
-        full-tag  (full-tag variant)
-        base      (into #{} [short-tag full-tag])]
+  (let [short-tag   (:docker-tag variant)
+        full-tag    (full-tag variant)
+        base        (into #{} [short-tag full-tag])]
     (-> base
         (conj
          (tag {:omit-jdk? true} variant)
@@ -109,7 +111,11 @@
          (tag {:omit-distro? true} variant)
          (tag {:omit-distro? true, :omit-build-tool-version? true} variant)
          (tag {:omit-jdk? true, :omit-build-tool-version? true} variant)
-         (tag {:omit-jdk? true, :omit-distro? true
+         (tag {:omit-jdk?                true, :omit-distro? true
                :omit-build-tool-version? true} variant))
         vec
         sort)))
+
+(s/fdef all-tags
+  :args (s/cat :variant ::variant/variant)
+  :ret  (s/coll-of ::cfg/docker-tag))

test/docker_clojure/manifest_test.clj

@@ -1,5 +1,5 @@
 (ns docker-clojure.manifest-test
-  (:require [clojure.test :refer [deftest is are testing]]
+  (:require [clojure.test :refer [deftest is testing]]
             [docker-clojure.manifest :refer [variant->manifest]]))
 
 (deftest variant->manifest-test