108 lines
5.3 KiB
Clojure
108 lines
5.3 KiB
Clojure
(ns dda.build.terragrunt.domain-test
|
|
(:require
|
|
[clojure.test :refer [deftest is are testing run-tests]]
|
|
[clojure.spec.alpha :as s]
|
|
[clojure.spec.test.alpha :as st]
|
|
[dda.build.terragrunt.domain :as cut]))
|
|
|
|
(st/instrument `cut/clean-build-dir-command)
|
|
(st/instrument `cut/copy-terragrunt-command)
|
|
(st/instrument `cut/terragrunt-plan-command)
|
|
(st/instrument `cut/terragrunt-apply-command)
|
|
(st/instrument `cut/terragrunt-destroy-command)
|
|
|
|
(deftest should-calculate-clean-build-dir-command
|
|
(is (= ["rm" "-rf" "../../target/test"]
|
|
(cut/clean-build-dir-command {:name "test"
|
|
:module "statistics"
|
|
:project-root-path "../.."
|
|
:build-dir-name "target"
|
|
:version "4.11.8-dev"
|
|
:stage "dev"
|
|
:debug false
|
|
:dry-run false
|
|
:autoapply false
|
|
:tg-output-filenname "tg-out.json"}))))
|
|
|
|
(deftest should-calculate-copy-terragrunt-command
|
|
(is (= [["bash" "-c" "cp *.hcl ../../target/test"]
|
|
["cp" "-r" "statistics" "../../target/test"]]
|
|
(cut/copy-terragrunt-command {:name "test"
|
|
:module "statistics"
|
|
:project-root-path "../.."
|
|
:build-dir-name "target"
|
|
:version "4.11.8-dev"
|
|
:stage "dev"
|
|
:debug false
|
|
:dry-run false
|
|
:autoapply false
|
|
:tg-output-filenname "tg-out.json"}))))
|
|
|
|
(deftest should-calculate-terragrunt-plan-command
|
|
(is (= [[{:dir "../../../target/test/statistics"} "terragrunt" "init"]
|
|
[{:dir "../../../target/test/statistics"} "terragrunt" "plan"]]
|
|
(cut/terragrunt-plan-command {:name "test"
|
|
:module "statistics"
|
|
:project-root-path "../../.."
|
|
:build-dir-name "target"
|
|
:version "4.11.8-dev"
|
|
:stage "dev"
|
|
:debug false
|
|
:dry-run false
|
|
:autoapply false
|
|
:tg-output-filenname "tg-out.json"}))))
|
|
|
|
(deftest should-calculate-terragrunt-apply-command
|
|
(is (= [[{:dir "../../../target/test/statistics"} "terragrunt" "init"]
|
|
[{:dir "../../../target/test/statistics"} "terragrunt" "apply" "-auto-approve"]]
|
|
(cut/terragrunt-apply-command {:name "test"
|
|
:module "statistics"
|
|
:project-root-path "../../.."
|
|
:build-dir-name "target"
|
|
:version "4.11.8-dev"
|
|
:stage "dev"
|
|
:debug false
|
|
:dry-run false
|
|
:autoapply false
|
|
:tg-output-filenname "tg-out.json"}))))
|
|
|
|
(deftest should-calculate-terragrunt-destroy-command
|
|
(is (= [[{:dir "../../../target/test/statistics"} "terragrunt" "init"]
|
|
[{:dir "../../../target/test/statistics"} "terragrunt" "destroy"]]
|
|
(cut/terragrunt-destroy-command {:name "test"
|
|
:module "statistics"
|
|
:project-root-path "../../.."
|
|
:build-dir-name "target"
|
|
:version "4.11.8-dev"
|
|
:stage "dev"
|
|
:debug false
|
|
:dry-run false
|
|
:autoapply false
|
|
:tg-output-filenname "tg-out.json"}))))
|
|
|
|
(deftest should-calculate-terragrunt-output-command
|
|
(is (= [[{:dir "../../../target/test/statistics"} "bash"
|
|
"-c"
|
|
"terragrunt output -json > tg-out.json"]]
|
|
(cut/terragrunt-output-command {:name "test"
|
|
:module "statistics"
|
|
:project-root-path "../../.."
|
|
:build-dir-name "target"
|
|
:version "4.11.8-dev"
|
|
:stage "dev"
|
|
:debug false
|
|
:dry-run false
|
|
:autoapply false
|
|
:tg-output-filenname "tg-out.json"}))))
|
|
|
|
(deftest should-validate-tf-out
|
|
(is (s/valid?
|
|
::cut/tf-out
|
|
{:out
|
|
{:sensitive false,
|
|
:type [],
|
|
:value {:fqdn "cloud.test.meissa.de",
|
|
:ipv4 "91.107.220.172",
|
|
:ipv6 "2a01:4f8:c17:86c6::1"}}}
|
|
)))
|
|
|
