clojure - midje 不存根随散列图提供的函数

Question

考虑以下代码

(use 'midje.sweet)                                                                                                                                                                                                                                                              
(defn x2 [x] (* x x))                                                                                                                                                                                                                                                           
(def fs {:x2 x2})                                                                                                                                                                                                                                                               
(fact                                                                                                                                                                                                                                                                           
  (x2 1) => "one"                                                                                                                                                                                                                                                               
  ((:x2 fs) 1) => "one"                                                                                                                                                                                                                                                         
  (against-background                                                                                                                                                                                                                                                           
    (#'tweetfetcher.core-test/x2 1) => "one"))    

哪个输出

FAIL at (core_test.clj:177)
    Expected: "one"
      Actual: 1
FAILURE: 1 check failed.  (But 32 succeeded.)

第一次检查被存根，而第二次使用x2由 hashmap 提供fs。

考虑到我排除了引用，为什么 (:x2 fs)不存根？

感谢您的见解。

Answer 1

我并不惊讶它以这种方式工作。在(x2 1)中，已知编译时x2是定义为 的函数(defn x2 [x] (* x x))。

在((:x2 fs) 1)中，我们知道编译时，即fs，{:x2 x2}但我们还不知道 的结果(:x2 fs)。我的意思是在扩展(:x2 fs)期间不对表达式进行评估。fact它可能认为这(:x2 fs)不是解析为函数的 var，因此没有将其与我们的存根（内部against-background）相关联。