meissa/dda-build
7
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix spec tg

Browse source
This commit is contained in:
Michael Jerger 2025-01-07 17:50:09 +01:00
parent 897fe85e61
commit 62dbf600fd
2 changed files with 21 additions and 18 deletions
src/dda/build
terragrunt.clj
terragrunt
domain.clj

32
src/dda/build/terragrunt.clj
View file

@ -1,42 +1,46 @@
(ns dda.build.terragrunt (ns dda.build.terragrunt
(:require [orchestra.core :refer [defn-spec]] (:require [clojure.spec.alpha :as s]
[orchestra.core :refer [defn-spec]]
[clojure.spec.test.alpha :as st] [clojure.spec.test.alpha :as st]
[cheshire.core :refer [parse-string]] [cheshire.core :refer [parse-string]]
[dda.build.devops :as d] [dda.build.devops :as d]
[dda.build.terragrunt.domain :as domain] [dda.build.terragrunt.domain :as domain]
[dda.build.infrastructure :as i])) [dda.build.infrastructure :as i]))
(st/instrument `clean-build-dir!)
(def default (def default
(merge d/default {:autoapply false (merge d/default
:tg-output-filenname "tg-out.json"})) {:tg-output-filenname "tg-out.json"}))
(s/def ::tg (s/merge
::d/devops
(s/keys :opt-un [::domain/tg-output-filenname])))
(s/def ::tf-out ::domain/tf-out)
(defn-spec clean-build-dir! nil? (defn-spec clean-build-dir! nil?
[devops ::d/devops] [devops ::tg]
(let [config (merge default devops)] (let [config (merge default devops)]
(i/execute! (domain/clean-build-dir-command config) config))) (i/execute! (domain/clean-build-dir-command config) config)))
(defn-spec copy-terragrunt! nil? (defn-spec copy-terragrunt! nil?
[devops ::d/devops] [devops ::tg]
(let [config (merge default devops)] (let [config (merge default devops)]
(doseq [c (domain/copy-terragrunt-command config)] (doseq [c (domain/copy-terragrunt-command config)]
(i/execute! c config)))) (i/execute! c config))))
(defn-spec terragrunt-plan! nil? (defn-spec terragrunt-plan! nil?
[devops ::d/devops] [devops ::tg]
(let [config (merge default devops)] (let [config (merge default devops)]
(doseq [c (domain/terragrunt-plan-command config)] (doseq [c (domain/terragrunt-plan-command config)]
(i/execute! c config)))) (i/execute! c config))))
(defn-spec terragrunt-apply! nil? (defn-spec terragrunt-apply! nil?
[devops ::d/devops] [devops ::tg]
(let [config (merge default devops)] (let [config (merge default devops)]
(doseq [c (domain/terragrunt-apply-command config)] (doseq [c (domain/terragrunt-apply-command config)]
(i/execute! c config)))) (i/execute! c config))))
(defn-spec terragrunt-output! map? (defn-spec terragrunt-output! map?
[devops ::d/devops] [devops ::tg]
(let [config (merge default devops)] (let [config (merge default devops)]
(doseq [c (domain/terragrunt-output-command config)] (doseq [c (domain/terragrunt-output-command config)]
(i/execute! c config)) (i/execute! c config))
@ -44,13 +48,13 @@
(fn [k] (keyword (.toLowerCase k)))))) (fn [k] (keyword (.toLowerCase k))))))
(defn-spec terragrunt-destroy! nil? (defn-spec terragrunt-destroy! nil?
[devops ::d/devops] [devops ::tg]
(let [config (merge default devops)] (let [config (merge default devops)]
(doseq [c (domain/terragrunt-destroy-command config)] (doseq [c (domain/terragrunt-destroy-command config)]
(i/execute! c config)))) (i/execute! c config))))
(defn-spec plan! nil? (defn-spec plan! nil?
[devops ::d/devops] [devops ::tg]
(let [config (merge default devops)] (let [config (merge default devops)]
(clean-build-dir! config) (clean-build-dir! config)
(d/create-build-dir! config) (d/create-build-dir! config)
@ -58,7 +62,7 @@
(terragrunt-plan! config))) (terragrunt-plan! config)))
(defn-spec apply! map? (defn-spec apply! map?
[devops ::d/devops] [devops ::tg]
(let [config (merge default devops)] (let [config (merge default devops)]
(clean-build-dir! config) (clean-build-dir! config)
(d/create-build-dir! config) (d/create-build-dir! config)
@ -67,7 +71,7 @@
(terragrunt-output! config))) (terragrunt-output! config)))
(defn-spec destroy! nil? (defn-spec destroy! nil?
[devops ::d/devops] [devops ::tg]
(let [config (merge default devops)] (let [config (merge default devops)]
(clean-build-dir! config) (clean-build-dir! config)
(d/create-build-dir! config) (d/create-build-dir! config)

7
src/dda/build/terragrunt/domain.clj
View file

@ -21,12 +21,11 @@
(s/keys :req-un [::out])) (s/keys :req-un [::out]))
(s/def ::tg-output-filenname string?) (s/def ::tg-output-filenname string?)
(s/def ::autoapply boolean?)
(s/def ::config (s/def ::config
(s/keys :req-un [::d/name ::d/stage ::d/project-root-path ::d/build-dir-name ::d/debug (s/merge ::d/devops
::d/dry-run ::d/module ::tg-output-filenname ::autoapply] (s/keys :req-un [::tg-output-filenname]
:opt-un [])) :opt-un [])))
(defn-spec clean-build-dir-command seq? (defn-spec clean-build-dir-command seq?
[config ::config] [config ::config]