使用单元测试检查Clojure代码的体系结构

Question

我被启发买了这本书：建筑进化建筑和洁净建筑。

其中一个概念是能够在代码中测试您的体系结构。特别是，我希望能够检查名称空间、层之间的依赖关系，并断言名称空间不为另一层调用命名空间。

我所有的名称空间都在圆圈内：

​

​

其想法是‘控制器’中的名称空间不能导入‘实体’内的名称空间，而只能导入他下面的名称空间(用例)。我想在我的单元测试中检测到这一点。

因此，这应该在我的单元测试中失败：

(ns com.controller.core
  (:require [com.entities.core :as entities]
            [com.use-cases.core :as use-cases]))

(defn do-something [args]
      (let [use-cases-results (use-cases/do-something args)]
           (entities/do-some-other-thing use-cases-results)))

在java中，您可以使用弓形单元编写这类单元测试。

private final JavaClasses classes = new ClassFileImporter().importPackagesOf(Controller/core.class);

noClasses().that().resideInAPackage("..controller..").should().accessClassesThat().resideInAPackage("..use-cases..").check(classes);

您是否在clojure中使用了类似的东西，或者您有一些如何解决这个问题的建议？

Answer 1

使用ns-指怎么样，比如：

(deftest controllers-should-not-refer-to-entities
  (is (->> (all-ns)
           (filter #(clojure.string/includes? % "controller"))
           (map ns-refers)
           (map vals)
           flatten
           (not-any? #(clojure.string/includes? % "entities")))))