Clojure Spec auf einer Vararg-Funktion

Question

Ich versuche, eine Spezifikation für eine Merge-Funktion zu schreiben, die eine Funktion übernimmt und als eine Eingabe abbildet und Funktionen verwendet, um die Konflikte aufzulösen. Die Spezifikation, die ich für die Funktion geschrieben habe, schlägt jedoch fehl. Ich versuche herauszufinden, wie man Spezifikationen für solche Funktionen schreibt.

Unten ist das Code-Snippet.

(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}) 

Die Spezifikation Fehler ich bin immer ist:

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

In Ihrem [:args :func] spec:

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

Sie sagen, dass die Funktion als Argumente akzeptieren müssen eine beliebige Anzahl von Karten und geben Sie eine Karte zurück. Aber die Funktion, die Sie deep-merge-with passieren entspricht nicht dieser Spezifikation:

(fn [f s] s) 

Diese Funktion nimmt genau zwei Argumente, nicht eine beliebige Anzahl von Karten.