;; This Source Code Form is subject to the terms of the Mozilla Public
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
;;
;; Copyright (c) KALEIDOS SUBSIDIARY SL

(ns backend-tests.config-test
  (:require
   [app.common.time :as ct]
   [app.config :as cf]
   [clojure.test :as t]))

(t/deftest get-public-uri-normalizes-base
  (t/testing "trailing slash is ensured with and without subpath"
    (doseq [[base expected] [["http://localhost:3449" "http://localhost:3449/"]
                             ["http://localhost:3449/" "http://localhost:3449/"]
                             ["https://example.com/penpot" "https://example.com/penpot/"]
                             ["https://example.com/penpot/" "https://example.com/penpot/"]]]
      (t/testing (str "base " base)
        (with-redefs [cf/config (assoc cf/config :public-uri base)]
          (t/is (= expected (cf/get-public-uri))))))))

(t/deftest get-public-uri-preserves-subpath
  (t/testing "joined segments keep the subpath"
    (with-redefs [cf/config (assoc cf/config :public-uri "https://example.com/penpot")]
      (t/is (= "https://example.com/penpot/assets/by-id/123"
               (cf/get-public-uri "assets/by-id/123")))
      (t/is (= "https://example.com/penpot/api/main/doc"
               (cf/get-public-uri "api/main/doc"))))))

(t/deftest join-uri-joins-arbitrary-base
  (t/testing "segments join onto any base with trailing slash normalization"
    (t/is (= "https://nitrate.example.com/api/teams/123"
             (cf/join-uri "https://nitrate.example.com" "api/teams/123")))
    (t/is (= "https://nitrate.example.com/api/teams/123"
             (cf/join-uri "https://nitrate.example.com/" "api/teams/123")))))

(t/deftest join-uri-rejects-leading-slash
  (t/testing "a leading slash would drop the subpath, so it fails fast"
    (t/is (thrown? AssertionError
                   (cf/join-uri "https://example.com/penpot" "/assets/by-id/123")))))

(t/deftest tenant-allows-only-alphanumeric
  (t/testing "default and plain alphanumeric tenants validate"
    (doseq [tenant ["default" "acme42" "my-company"]]
      (t/is (cf/validate-config (assoc cf/config :tenant tenant)))))
  (t/testing "LIKE wildcards and separators are rejected"
    (doseq [tenant ["my_tenant" "a%b" "a:b" "a b" "" "acme.example.com"]]
      (t/is (not (cf/validate-config (assoc cf/config :tenant tenant)))))))

(t/deftest worker-parallelism-keys
  (t/testing "schema decodes all runner parallelism keys (env strings to int)"
    (let [decoded (cf/decode-config {:worker-default-parallelism "4"
                                     :worker-webhook-parallelism "2"
                                     :worker-cron-parallelism "3"
                                     :worker-binfile-parallelism "5"})]
      (t/is (= 4 (:worker-default-parallelism decoded)))
      (t/is (= 2 (:worker-webhook-parallelism decoded)))
      (t/is (= 3 (:worker-cron-parallelism decoded)))
      (t/is (= 5 (:worker-binfile-parallelism decoded)))))
  (t/testing "lookups resolve configured values (unnamespaced keys, as main uses)"
    (with-redefs [cf/config (assoc cf/config
                                   :worker-default-parallelism 4)]
      (t/is (= 4 (cf/get :worker-default-parallelism 1))))))

(t/deftest jobs-user-ttl
  (t/testing "the env value is decoded as a duration"
    (let [decoded (cf/decode-config {:jobs-user-ttl "72h"})]
      (t/is (= (ct/duration {:days 3}) (:jobs-user-ttl decoded)))))

  (t/testing "the getter resolves the configured value"
    (with-redefs [cf/config (assoc cf/config :jobs-user-ttl (ct/duration {:days 1}))]
      (t/is (= (ct/duration {:days 1}) (cf/get-jobs-user-ttl)))))

  (t/testing "and falls back to a week"
    (with-redefs [cf/config (dissoc cf/config :jobs-user-ttl)]
      (t/is (= (ct/duration {:days 7}) (cf/get-jobs-user-ttl))))))