Clojure Spec для функции vararg

Question

Я пытаюсь написать спецификацию для функции слияния, которая принимает функцию и отображает как входной сигнал и использует функцию для разрешения конфликтов. Однако спецификация, которую я написал для функции, терпит неудачу. Я пытаюсь выяснить, как написать спецификацию для таких функций.

Ниже приведен фрагмент кода.

(require '[clojure.spec.test :as stest]) 
(require '[clojure.spec :as spec]) 

(defn deep-merge-with [func & maps] 
    (let [par-func (partial deep-merge-with func)] 
    (if (every? map? maps) 
     (apply merge-with par-func maps) 
     (apply func maps)))) 

(spec/fdef deep-merge-with 
      :args (spec/cat :func (spec/fspec :args (spec/cat :maps (spec/* map?)) 
              :ret map?) 
          :maps (spec/cat :maps (spec/* map?))) 
      :ret map?) 

(stest/instrument `deep-merge-with) 

(deep-merge-with (fn [f s] s) {:a 1} {:a 2}) 

Спецификация ошибки я получаю:

clojure.lang.ExceptionInfo: Call to #'boot.user/deep-merge-with did not conform to spec: 
    In: [0] val:() fails at: [:args :func] predicate: (apply fn), Wrong number of args (0) passed to: user/eval22001/fn--22002 
           :clojure.spec/args (#function[boot.user/eval22001/fn--22002] {:a 1} {:a 2}) 

Answer 1

В вашей [:args :func] спецификации:

(spec/fspec :args (spec/cat :maps (spec/* map?)) :ret map?) 

Вы хотите сказать, что функция должна принимать в качестве аргументов любое число из карты и вернуть карту. Но функция вы передаете deep-merge-with не соответствует этой спецификации:

(fn [f s] s) 

Эта функция принимает ровно два аргументов, а не произвольное число карт.