Вы можете использовать изменяемую коллекцию возвращаемых значений, а затем возвращать / удалять значения из нее при каждом вызове.
(defn foo [x] (inc x)) ;; example fn to be mocked
Если вы хотели сделать три звонка на foo
, вернув 1, 2 и 3 соответственно:
(with-redefs [foo (let [results (atom [1 2 3])]
(fn [_] (ffirst (swap-vals! results rest))))]
(prn (foo 0))
(prn (foo 0))
(prn (foo 0))
;; additional calls would return nil
(prn (foo 0)))
;; 1
;; 2
;; 3
;; nil
Использует swap-vals!
для получения старых / новых значений атома, но требует Clojure 1.9 или выше.
Если у вас нет swap-vals!
, вы можете сделать это (менее атомарно) следующим образом:
(with-redefs [foo (let [results (atom [1 2 3])]
(fn [_]
(let [result (first @results)]
(swap! results rest)
result)))]
...)