如何重新评估 Clojure 中的变量层次结构？

Question

在我的 Clojure 项目中，我使用命名空间来存储配置：

(ns clojure-bgproc.settings
  (:require [environ.core :refer [env]]
            [clojure.edn :as edn]))

(def ^:dynamic *app-env* (env :app-env "production"))

(def ^:private config-path
  (if (= *app-env* "test") "settings_test.edn" "settings.edn"))
(def config (-> config-path slurp edn/read-string))
(def db-config (:db config))

对于测试环境，我使用一个fixture重新定义*app-env*：

(ns helpers.config
  (:require [clojure-bgproc.settings :refer :all]))

(defn with-test-config [f]
  (with-redefs [*app-env* "test"]
    (f)))

虽然 *app-env* 被重新定义，但所有其他配置变量都没有：

FAIL in (app-config-test) (core_test.clj:14)
expected: (s/ends-with? (:dbname db-config) "test")
  actual: (not (s/ends-with? "rmq-reports-development" "test"))

有没有一种方法可以让我轻松地重新定义所有其他配置变量，而无需我手动重新计算它们？

Answer 1

我认为您可以使用个人资料和lein-environ 做任何您想做的事情。

很容易误配置environ。请注意，它还需要 lein-environ 插件。

你的project.clj：

  :dependencies [
    [environ "1.1.0"]  ...]      ; ********** REQUIRED  *********

  :plugins [[com.jakemccrary/lein-test-refresh "0.22.0"]
            [lein-ancient "0.6.15"]
            [lein-codox "0.10.3"]
            [lein-environ "1.1.0"]]   ; ********** REQUIRED  *********

  :db "jdbc:postgresql://localhost/default"  ; *** default vals ***
  :settings "settings-default.edn"

然后发profiles.clj:

{:dev  {:env {:db       "jdbc:postgresql://localhost/dev"
              :settings "settings-dev.edn"}}
 :test {:env {:db       "jdbc:postgresql://localhost/test"
              :settings "settings-test.edn"}}}

然后在你的proj.corens:

(ns demo.core
  (:use tupelo.core)
  (:require
    [environ.core :as env]
    ))

(defn -main []
  (println "main -enter")
  (spyx (env/env :db))
  (spyx (env/env :settings)) )

还有你的测试文件：

(ns tst.demo.core
  (:use demo.core tupelo.core tupelo.test)
  (:require
    [clojure.string :as str]
    [environ.core :as env]))

(dotest
  (spyx (env/env :db))
  (spyx (env/env :settings))
  )

运行代码：

~/expr/demo > lein run
main -enter
(env/env :db) => "jdbc:postgresql://localhost/dev"
(env/env :settings) => "settings-dev.edn"

运行测试：

~/expr/demo > lein 测试

lein test _bootstrap

--------------------------------------
   Clojure 1.10.0-alpha8    Java 11
--------------------------------------

lein test tst.demo.core
(env/env :db) => "jdbc:postgresql://localhost/test"
(env/env :settings) => "settings-test.edn"

Ran 2 tests containing 0 assertions.
0 failures, 0 errors.