测试将结构编译为类函数列表的高阶函数

Question

我有一个这样的地图（可以使用通常的布尔运算符嵌套，使用模块“布尔”和“数据”将包含适当的值，例如“左”，“右”和“运算符”将是“和” ，“or”，“not”）：

{ "data"   { "name" "lang", "operator" "=", "value" "blue" },
  "module" "impression_hint"}

我想要的是一个返回一个列表的函数，该列表可以插入到（fn [context] ...）列表中，在那里它将能够针对我们将抛出的内容执行在它。

考虑到上述结构，插值到函数中后的最终结果应该是这样的：

(fn [context]
    (= ((context :impression_hint) "lang") "blue"))

因此，我的解析/编译函数必须只返回 (= ...) 部分。我有一些非常接近的东西：

(defn- parse-internal [tree acc]
  (cond
    ; other cases will go here

    (= "impression_hint" (tree "module"))
    (let [data  (tree "data")
          op    (data "operator")
          name  (data "name")
          value (data "value")]
      `(~(symbol op) ((context :impression_hint) ~name) ~value))

    :else
    (throw (RuntimeException. (str "Unknown module: " (tree "module"))))))

在我的测试中，这返回：

FAIL in (simple-shallow-rules-generate-simple-shallow-functions) (targeting.clj:10)
expected: (= (quote (= ((context :impression_hint) "name") "blue")) (bloom.adgear.targeting/parse {"data" {"name" "lang", "operator" "=", "value" "blue"}, "module" "impression_hint"}))
  actual: (not (= (= ((context :impression_hint) "lang") "blue")
                  (= ((bloom.adgear.targeting/context :impression_hint) "lang") "blue")))

注意到上下文参数？它已命名，这就是导致我的测试失败的原因。我确信我可以做一些事情，但是调用符号会导致符号未定义，这是有道理的，因为该符号尚不存在。

关于 acc 参数：我怀疑我最终会从此函数中删除递归，并使用 acc 进行递归，将我的返回值放入累加器中。不过，这还有些遥远。

Answer 1

问题在于，语法引用形式（前面带有反引号）中的无命名空间文字符号会根据语法引用形式在词汇上出现的位置填充命名空间组件。您的问题似乎出现在定义 bloom.adgear.targeting 命名空间的文件中，因此这就是附加到 context 的内容。

大多数时候，这是一个很酷的功能，但是当您需要避免它时，您可以使用 ~' 技巧：

`foo
; => some-ns/foo
`~'foo
; => foo

波浪号取消引用下一个形式，因此它不受语法影响 -引用的魔力（包括自动解析符号）；但随后它会被求值，因此需要引用，以便您返回原始形式（符号 foo），而不是它的值（无论 foo 当前绑定到什么）。