wilsonch

wilsonch / clohito

Created February 19, 2015 04:38

Home rolled test delegate with crude recorder

	(def recorder (atom []))

	(defn- record-delegate! [recorder delegate-name args]
	(swap! recorder conj {:name delegate-name :called-with args}))

	(defn fake-delegate [recorder delegate-name & [answer]]
	(fn [& args]
	(record-delegate! recorder delegate-name args)
	answer))