picomock - for clojure mocks

picomock_test.clj

(ns util.picomock-test
  "https://github.com/audiogum/picomock"
  (:require
   [clojure.test :refer [deftest is testing]]
   [picomock.core :as pico]))

(deftest picomock-test
  (testing "without a function"
           (let [mock (pico/mock)]
             (is (nil? (mock)))
             (is (= 1 (pico/mock-calls mock)))))
  (testing "with one function"
           (let [mock (pico/mock (fn [a b] (+ a b)))]
             (is (= 3 (mock 1 2)))
             (is (= 5 (mock 3 2)))
             (is (= 2 (pico/mock-calls mock)))
             (is (= [[1 2] [3 2]] (pico/mock-args mock)))))
  (testing "with multiple functions"
           (let [mock (pico/mock [(constantly 1) (constantly 2)])] ;
             (is (= [1 2 1 2] [(mock) (mock) (mock) (mock)])))))

(deftest mockval-test (let [mock (pico/mockval 5)] (is (= [5 5 5] [(mock) (mock) (mock)]))))

(deftest mockvals-test (let [mock (pico/mockvals [1 2 3])] (is (= [1 2 3 1] [(mock) (mock) (mock) (mock)]))))