From 81d14a4aaa55d79a32e62d085e1cd87c135d3a63 Mon Sep 17 00:00:00 2001 From: Wes Morgan Date: Fri, 10 Apr 2026 12:52:46 -0600 Subject: [PATCH] Add fn spec for docker/all-tags --- src/docker_clojure/docker.clj | 10 ++++++++-- test/docker_clojure/manifest_test.clj | 2 +- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/src/docker_clojure/docker.clj b/src/docker_clojure/docker.clj index c1013398..4728cdde 100644 --- a/src/docker_clojure/docker.clj +++ b/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)) @@ -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)) diff --git a/test/docker_clojure/manifest_test.clj b/test/docker_clojure/manifest_test.clj index 00c9b706..99c4222f 100644 --- a/test/docker_clojure/manifest_test.clj +++ b/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