fix tests & deprecate old

This commit is contained in:
Michael Jerger 2025-04-09 08:48:44 +02:00
parent e0fa95b361
commit 14487d8cf0
2 changed files with 37 additions and 23 deletions
src
main/cljc/dda/c4k_common
test/cljc/dda/c4k_common

View file

@ -24,7 +24,8 @@
(def pg-auth?
(s/keys :opt-un [::postgres-db-user ::postgres-db-password]))
(def postgres-function (s/keys :opt-un [::deserializer ::optional]))
(def ^{:deprecated "11.0.0"} postgres-function
(s/keys :opt-un [::deserializer ::optional]))
(def default-config (merge ns/default-config
{:postgres-image "postgres:16"
@ -32,7 +33,7 @@
:db-name "postgres"
:postgres-data-volume-path "/var/postgres"
:pv-storage-size-gb 20
:pvc-storage-class-name :local-path}))
:pvc-storage-class-name "local-path"}))
(defn-spec generate-configmap map?
[& config (s/? pg-config?)]
@ -79,19 +80,32 @@
config)]
(int/generate-service final-config)))
(defn-spec generate-config seq?
(defn-spec config-objects seq?
[config pg-config?]
(let [final-config (merge default-config
config)]
[(int/generate-persistent-volume final-config)
(int/generate-configmap final-config)
(int/generate-pvc final-config)
(int/generate-deployment final-config)
(int/generate-service final-config)]))
(let [resolved-config (merge default-config
config)]
[(generate-configmap resolved-config)
(when (contains? resolved-config :postgres-data-volume-path)
(generate-persistent-volume
(select-keys resolved-config [:postgres-data-volume-path :pv-storage-size-gb])))
(generate-pvc resolved-config)
(generate-deployment resolved-config)
(generate-service resolved-config)]))
(defn-spec generate-auth seq?
(defn-spec auth-objects seq?
[config pg-config?
auth pg-auth?]
(let [final-config (merge default-config
(let [resolved-config (merge default-config
config)]
[(int/generate-secret final-config auth)]))
[(int/generate-secret resolved-config auth)]))
(defn-spec ^{:deprecated "11.0.0"} generate-config seq?
"use config-objects instead"
[config pg-config?]
(config-objects config))
(defn-spec ^{:deprecated "11.0.0"} generate-auth seq?
"use config-auth instead"
[config pg-config?
auth pg-auth?]
(auth-objects config auth))

View file

@ -26,7 +26,7 @@
:spec
{:storageClassName "manual"
:accessModes ["ReadWriteOnce"]
:capacity {:storage "10Gi"}
:capacity {:storage "20Gi"}
:hostPath {:path "xx"}}}
(cut/generate-persistent-volume {:postgres-data-volume-path "xx"}))))
@ -37,9 +37,9 @@
:metadata
{:name "postgres-claim", :namespace "default" :labels {:app "postgres"}}
:spec
{:storageClassName "manual"
{:storageClassName "local-path"
:accessModes ["ReadWriteOnce"]
:resources {:requests {:storage "10Gi"}}}}
:resources {:requests {:storage "20Gi"}}}}
(cut/generate-pvc {}))))
@ -66,16 +66,16 @@
:metadata {:name "postgres-secret", :namespace "app"},
:type "Opaque",
:data {:postgres-user "eHgtdXM=", :postgres-password "eHgtcHc="}}]
(cut/generate-auth {:namespace "app"}
{:postgres-db-user "xx-us"
:postgres-db-password "xx-pw"}))))
(cut/auth-objects {:namespace "app"}
{:postgres-db-user "xx-us"
:postgres-db-password "xx-pw"}))))
(deftest should-generate
(is (= 5
(count (cut/generate-config {}))))
(count (cut/config-objects {}))))
(is (= 1
(count (cut/generate-auth {}
{:postgres-db-user "user"
:postgres-db-password "password"})))))
(count (cut/auth-objects {}
{:postgres-db-user "user"
:postgres-db-password "password"})))))