(ns dda.c4k-nextcloud.core-test
  (:require
   #?(:clj [clojure.test :refer [deftest is are testing run-tests]]
      :cljs [cljs.test :refer-macros [deftest is are testing run-tests]])
   [clojure.string :as st]
   [dda.c4k-nextcloud.core :as cut]
   ))

(deftest should-k8s-objects
  (is (= 17
         (count (cut/k8s-objects {:fqdn "nextcloud-neu.prod.meissa-gmbh.de"
                                  :postgres-db-user "nextcloud"
                                  :postgres-db-password "nextcloud-db-password"
                                  :nextcloud-admin-user "cloudadmin"
                                  :nextcloud-admin-password "cloudpassword"
                                  :issuer :prod
                                  :nextcloud-data-volume-path "/var/nextcloud"
                                  :postgres-data-volume-path "/var/postgres"
                                  :aws-access-key-id "aws-id"
                                  :aws-secret-access-key "aws-secret"
                                  :restic-password "restic-pw"
                                  :restic-repository "restic-repository"}))))
  (is (= 15
         (count (cut/k8s-objects {:fqdn "nextcloud-neu.prod.meissa-gmbh.de"
                                  :postgres-db-user "nextcloud"
                                  :postgres-db-password "nextcloud-db-password"
                                  :nextcloud-admin-user "cloudadmin"
                                  :nextcloud-admin-password "cloudpassword"
                                  :issuer :prod
                                  :aws-access-key-id "aws-id"
                                  :aws-secret-access-key "aws-secret"
                                  :restic-password "restic-pw"
                                  :restic-repository "restic-repository"}))))
  (is (= 11
         (count (cut/k8s-objects {:fqdn "nextcloud-neu.prod.meissa-gmbh.de"
                                  :postgres-db-user "nextcloud"
                                  :postgres-db-password "nextcloud-db-password"
                                  :nextcloud-admin-user "cloudadmin"
                                  :nextcloud-admin-password "cloudpassword"
                                  :issuer :prod
                                  :aws-access-key-id "aws-id"
                                  :aws-secret-access-key "aws-secret"
                                  :restic-password "restic-pw"}))))
  (is (st/includes? 
       (get-in (cut/k8s-objects {:fqdn "nextcloud-neu.prod.meissa-gmbh.de"
                                 :postgres-db-user "nextcloud"
                                 :postgres-db-password "nextcloud-db-password"
                                 :nextcloud-admin-user "cloudadmin"
                                 :nextcloud-admin-password "cloudpassword"
                                 :issuer :prod
                                 :aws-access-key-id "aws-id"
                                 :aws-secret-access-key "aws-secret"
                                 :restic-password "restic-pw"})
               [0])
       "max_connections = 700")))