Clojure Unit Test: Überprüfen Sie, ob eine Funktion aufgerufen wurde

Question

Ich versuche, einige Komponententests für meine Clojure-Funktion zu schreiben (ich benutze clojure.test, aber ich kann bei Bedarf zu midje wechseln).

Ich habe eine Funktion, die wie lautet:

(defn GenerateNodes 
    [is-sky-blue? hot-outside? name] 
    (cond 
    (is-sky-blue? name) (generate-sky-nodes) 
    (hot-outside?) (generate-hot-nodes))) 

, wenn das Gerät diese Funktion zu testen, habe ich den folgenden Testfall schreiben möchten:

(deftest when-sky-blue-then-generate-sky-nodes 
    (let [is-sky-blue true] 
     (GenerateNodes (fn[x] println "sky nodes generated.")) 
      (is (= true Was-generate-hot-nodes-called?)) 

Wie kann ich, dass die Funktion generate behaupten Sky-Nodes wurde genannt? oder nicht ? Ich würde ein spöttisches Framework in C# oder Java verwenden, aber ich weiß nichts über Clojure.

Answer 1

Was Sie haben, ist schon nicht weit von einer Arbeitsfunktionsfähige Version. Ich habe die Dinge etwas verändert, um Clojure idiomatischer zu sein.

Im Folgenden wird angenommen, dass die Erzeugung-Himmel-Knoten und erzeugen Hot-Knoten jeweils einen Wert zurückgeben (dies kann zusätzlich zu irgendwelchen Nebenwirkungen durchgeführt werden sie haben), dh:

(defn generate-sky-nodes 
    [] 
    (doseq [i (range 10)] (do-make-sky-node i)) 
    :sky-nodes) 

dann, Ihre generieren-Knoten wird wie folgt angepasst:

(defn generate-nodes 
    [sky-blue? hot-outside? name] 
    (cond 
    (sky-blue? name) (generate-sky-nodes) 
    (hot-outside?) (generate-hot-nodes))) 

und schließlich die funktionsfähige Version der Tests:

(deftest when-sky-blue-then-generate-sky-nodes 
    (let [truthy (constantly true) 
     falsey (constantly false) 
     name nil] 
    (is (= (generate-nodes truthy falsey name) 
     :sky-nodes)) 
    (is (= (generate-nodes truthy truthy name) 
     :sky-nodes)) 
    (is (not (= (generate-nodes falsey falsey name) 
       :sky-nodes))) 
    (is (not (= (generate-nodes falsey truthy name) 
       :sky-nodes))))) 

Die allgemeine Idee ist, dass Sie nicht testen, was es getan hat, Sie testen, was es zurückgibt. Dann ordnen Sie Ihren Code so an, dass (wann immer möglich) alles, was für einen Funktionsaufruf wichtig ist, zurückgegeben wird.

Ein weiterer Vorschlag ist, die Zahl der Plätze zu minimieren, wo Nebenwirkungen passieren durch generate-sky-nodes und generate-hot-nodes mit der Nebenwirkung zurückzukehren durchgeführt werden:

(defn generate-sky-nodes 
    [] 
    (fn [] 
    (doseq [i (range 10)] (do-make-sky-node i)) 
    :sky-nodes)) 

und Ihren Anruf von generate-nodes würde wie folgt aussehen :

(apply (generate-nodes blue-test hot-test name) []) 

oder kurz und bündig (obwohl zugegebenermaßen merkwürdig, wenn Sie weniger vertraut mit Clojure sind):

((generate-nodes blue-test hot-test name)) 

(mutatis mutandis im obigen Test Code die Tests auch mit dieser Version arbeiten)

Answer 2

Sie können ein Makro selbst schreiben, um Funktionen zu simulieren und prüfen, ob eine Funktion aufgerufen wurde oder nicht. Oder Sie können expect-call Bibliothek verwenden.

(defn check-error [a b] 
    (when (= a :bad-val) 
    (log :error b))) 

; This will pass 
(deftest check-logging 
    (with-expect-call (log [:error _]) 
    (check-error :bad-val "abc"))) 

; This will fail 
(deftest check-logging-2 
    (expect-call (log [:error _]) 
    (check-error :good-val "abc"))) 

Answer 3

Mit Midje ‚s checkables:

(unfinished is-sky-blue? hot-outside?) 
(facts "about GenerateNodes" 
    (fact "when the sky is blue then sky nodes are generated" 
    (GenerateNodes is-sky-blue? hot-outside? ..name..) => ..sky-nodes.. 
    (provided 
     (is-sky-blue? ..name..) => true 
     (generate-sky-nodes) => ..sky-nodes.. 
     (generate-hot-nodes) => irrelevant :times 0))) 

Answer 4

Sie mock-clj verwenden können.

(require ['mock-clj.core :as 'm]) 

(deftest when-sky-blue-then-generate-sky-nodes 
    (m/with-mock [is-sky-blue? true 
       generate-sky-nodes nil] 
    (GenerateNodes (fn[x] println "sky nodes generated.") ... ...) 
    (is (m/called? generate-sky-nodes))))