Clojure 规范和解构？

Question

不确定如何编写 Spec 来检查函数的解构参数。

如果我有这个简单的功能：

(defn make-name [[first last]]
  (str first " " last))

我为这个论点写了这个规范：

(s/def ::vstring2 (s/coll-of string? :kind vector? :count 2 :distinct false))

它工作正常：

(s/conform ::vstring2 ["Rich" "Hickey"])
=> ["Rich" "Hickey"]

但是当我尝试将它应用到这样的函数时：

(s/fdef make-name
        :args ::vstring2
        :ret string?)

它爆炸了：

(stest/check `make-name)
=>
({:spec #object[clojure.spec.alpha$fspec_impl$reify__2451
                0x7dd4c5ac
                "clojure.spec.alpha$fspec_impl$reify__2451@7dd4c5ac"],
  :clojure.spec.test.check/ret {:result #error{:cause "Wrong number of args (2) passed to: roster/make-name",

(...)

如何使用 ::vstring2 编写函数 Spec？还是我？

谢谢。

Answer 1

您只需为函数的参数指定另一个规范，例如使用s/cat:

(s/fdef make-name
  :args (s/cat :arg1 ::vstring2)
  :ret string?)

在您的示例中，:args 规范需要两个参数，因为您的 ::vstring2 规范是一个需要两个字符串的集合。通过此更改，函数 :args 规范知道它只需要 一个 参数，该参数应符合 ::vstring2。

还有更多函数规范示例here 和here。