当结果是一个函数时无法测试为真（编译时出现语法错误......没有这样的 var:...）

Question

当我想测试一个结果是另一个函数的函数时发生。我有这样的东西：

ns flexsearch.core

(defn init [{:keys [tokenizer split indexer filter] :as options}]
  (let [encoder (get-encoder (:encoder options))]
    (assoc (merge {:ids {} :data {}} options)
           :indexer (get-indexer indexer)
           :encoder encoder
           :tokenizer (if (fn? tokenizer) tokenizer #(string/split % (or split #"\W+")))
           :filter (set (mapv encoder filter)))))

并且在测试中ns:

ns flexsearch.core-test
[flexsearch.core :as f]

(def split #"\W+")

(is (= (f/init {:tokenizer false :split split :indexer :forward :filter #{"and" "or"}})
         {:ids {},
          :data {},
          :tokenizer f/init/fn--14976,
          :split #"\W+",
          :indexer f/index-forward,
          :filter #{"or" "and"},
          :encoder f/encoder-icase}))

回复中的结果是：

{:ids {},
 :data {},
 :tokenizer #function[flexsearch.core/init/fn--14976],
 :split #"\W+",
 :indexer #function[flexsearch.core/index-forward],
 :filter #{"or" "and"},
 :encoder #function[flexsearch.core/encoder-icase]}

我知道我必须输入 f/index-forward 而不是 repl [flexsearch.core/index-forward] 的结果，但它不适用于 f/init/fn--14976（没有这样的变量: f/init/fn--14976)

我认为这是 vars 的一个技巧，但我不知道它是如何工作的。如果您能提供任何阅读资料，我将不胜感激

---编辑--- f/index-forward 和 f/encoder-icase 符号工作正常。

---编辑2--- 我已经定义：

(defn spliter [split]   (fn [x] (string/split x (or split #"\W+"))))

并将其用于：

(defn init [{:keys [tokenizer split indexer filter] :as options}]
  (let [encoder (get-encoder (:encoder options))]
    (assoc (merge {:ids {} :data {}} options)
           :indexer (get-indexer indexer)
           :encoder encoder
           :tokenizer (if (fn? tokenizer) tokenizer (spliter split))
           :filter (set (mapv encoder filter)))))

我在测试中使用了类似的“:tokenizer #function[flexsearch.core/spliter/fn--34857]”，但它也失败了 –

Answer 1

我认为发生“No such var”错误是因为分词器是一个匿名函数。

如果您在 flexsearch.core 中将默认分词器定义为 non-anonymous 函数，然后在测试中使用该名称，它就可以工作。

但是，一般来说，您不能比较两个函数是否相等 - 正如@cfrick 所说。当您比较地图时，其中一些值是函数，您仍在比较函数。

当结果是一个函数时无法测试为真（编译时出现语法错误......没有这样的 var:...）

Can't get test to true when the result is a function (Syntax error compiling at .... No such var:...)

testing

unit-testing

clojure

clojurescript

clojure.test